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EDITORIAL 


Basic macht 
Geschichte 


• Wie die Menschen kennt auch der Computer eine Vielzahl von Sprachen. Pascal, Fortran 
oder Cobol sind nur einige davon. Die meisten dieser Computersprachen sind auf bestimmte 
Verwendungen zugeschnitten. Cobol beispielsweise ist besonders für kaufmännische 
Anwendungen geeignet, während die Stärke von Fortran auf dem mathematischen Bereich liegt. 

• Wenn Sie Ihren C64 einschalten, können Sie sich mit ihm in »Basic« unterhalten. 

Die Programmiersprache »Basic« wurde bereits 1963 entwickelt und ist eine Abkürzung aus 
dem Englischen. Voll ausgeschrieben bedeutet es: Beginners All Purpose Symbolic Instruction 
Code (auf deutsch etwa: Anfänger-Sprache für jeglichen Einsatz). Bei der Entwicklung von Basic 
achtete man darauf, daß die Sprache einfach zu lernen und universell einsetzbar ist. 

• Mehr als 1,5 Millionen verkaufte C64 haben nicht 
unerheblich zur Verbreitung von Basic beigetragen. 

Dennoch muß man sagen, daß das Handbuch, welches 
jedem C64 beim Kauf beiliegt, eher als »magerer 
Einstieg« denn gelungene Literatur für Basic zu be¬ 
zeichnen ist. 

• Wir lassen Sie mit dem Handbuch nicht allein Ein 
ausführlicher Basic-Kurs nimmt Sie quasi an die Hand 
und geleitet Sie - ohne Vorkenntnisse vorauszusetzen - 
in das Land der Basic-Programmierer. Wenn Sie den Kurs 
»Schritt für Schritt« mitgemacht haben, dürfen Sie sich 
durchaus als fortgeschrittener Programmierer bezeich¬ 
nen. 

• So einfach, wie das Basic 2.0 gehalten ist, läßt es 
natürlich auch Wünsche nach zusätzlichen Befehlen 
offen. Wir zeigen Ihnen, welche wichtigen Basic-Erwei- 
terungen es gibt und wo ihre Stärken liegen. Eine früher 
kommerziell vertriebene Basic-Erweiterung können wir 
Ihnen sogar zum Abtippen bieten. »ExBasic Level II« wartet mit mehr als 70 neuen Befehlen auf. 

• Neben dem umfangreichen Kurs finden Sie noch weitere wichtige Grundlagen. Beim Program¬ 
mieren unterläuft einem schnell ein Fehler. Auch für diese Fälle überlassen wir Sie nicht Ihrer 
Verzweiflung. Sie erfahren, wie man Fehler systematisch suchen kann. 

Jede Menge Tips, Tricks und hilfreiche Programme runden das Heft für alle Basic- 
Freunde ab. 








Basic-Erweiterungen 

So wird Ihr Computer durch zusätzliche Befehle 
noch leistungsfähiger 


Gewinnen Sie bei unserem 
Wettbewerb: Bücher, die für jeden 
C64-Besitzer unentbehrlich sind. Seite 140 


Die 1000 Nöte der Datenspeicherung 

Sicher haben auch Sie schon ratlos vor Ihrem Disketten¬ 
oder Kassetten-Laufwerk gestanden. Was muß beim 
Speichern von Programmen alles beachtet werden? 


Floppyfehler abfangen 

Wir zeigen, wie ein bedienungssicheres Programm auf 
Fehler mit dem Diskettenlaufwerk vorbereitet wird 


Ein Basic-Kurs der Superlative. 
Schritt für Schritt werden 
Sie mit dieser Program¬ 
miersprache vertraut [ 
gemocht. So wird auch 
ein völliger Laie zum 
fortgeschrittenen 
Programmierer. 

Seite 48 


Giga-Publish: Texte konvertieren 

Wie im Sonderheft 39 versprochen: Hier das 
Konvertierprogramm für das DTP-Programm 
-Giga-Publish«, mit dem sich Mastertext-Texte ins 
Giga-Publish-Format übertragen lassen. 
Zusätzlich viele Tips, die die Arbeit mit Giga- 
Publish erleichtern. 


I »ExBasic Level II«, 

I diese professionelle 

' Basic-Erweiterung 
gibt es in dieser 
Ausgabe zum Abtippen 
Über 70 neue Befehle 
bieten riesigen Komfort. 
Seite 10 


Übersicht 


Grundlagen 


Listings 

Das Kraftpaket: ExBasic Level II 

Eine professionelle Basic-Erweiterung zum 

Abtippen. Über 70 neue Befehle stehen Ihnen 
zur Verfügung. 

■ 10 

Detektiv für Basic-Programme 

Ein Fahndungsprogramm, das Fehler und 
schlechten Programmierstil aufspürt 

■ 24 

Das Ende der langweiligen Fehlermeldungen 

Mit »Error-Changer« gibt der Computer 
individuelle Fehlermeldungen aus, ganz nach 

Ihren Wünschen 

■ 38 

Diät für Basic-Programme 

Der Basic-Packer reduziert Programme auf ein 
Minimum und hilft, eine Menge Speicherplatz 
zu sparen 

■ 39 

Der C64 als Synthesizer 

Dieses Musikprogramm verwandelt Ihren 

Computer in eine Heimorgel 

■ 45 

DTP 


Kurs 


Basic für alle - Schritt für Schritt 

Ein ausführlicher Kurs, der Sie von den ersten 
Basic-Schritten bis zum erfahrenen Basic- 

■ 48 

Programmierer führt 
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So machen Sie Ihre Programme schneller 

Geschickte Programmierung kann Ihre Basic- 
Programme enorm beschleunigen. Wir zeigen 

Ihnen alle wichtigen Tricks. 

123 

Mein Computer versteht mich nicht 
Fehlermeldungen - auch für Anfänger kein 

Grund, aus dem Häuschen zu geraten 

129 

Dem Fehler auf der Spur 

Systematische Fehlersuche: So wird’s gemacht 

136 


| Tips & Tricks 

PEEKs und POKEs 

Fast schon eine Lebenshilfe für Basic-Program- 
mierer. Viele Tricks werden durch geschickte 
Anwendung dieser Befehle erst möglich. 

147 

Master Mind als Vierzeiler 

Eine Computer-Variante dieses Spiels in nur vier 
Zeilen programmiert 

H150 
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Tips & Tricks für Basic-Programmierer 

Viele nützliche Tips und Hilfsprogramme, die 
das Leben jedes Software-Freaks erleichtern 

Kl 159 

Eingabehilfen 

Wie gebe ich Programme ein? 

Diesen Artikel sollten Sie unbedingt lesen, wenn Sie 
Programme aus diesem Heft abtippen möchten 

H159 

Sonstiges 

Editorial 

3 

Fehlerteufel 

37 

Vorschau 

162 
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Knobelecke 


Warum gleich Geld für ein teures Keyboard ausgeben? 
Das Programm »Synthesizer« verwandelt Ihren C64 
in einen solchen. Experimentieren Sie doch mit dem 
Computerinstrument. 

Seite 45 


Alle Programme aus Artikeln mit einem H -Symbol linden Sie auch auf der 
Programmservice-Diskette zu diesem Sonderheft 


Ordnen Sie das Chaos 

Programme sind vollkommen durcheinander geraten. __ 

Wer schafft es, dieses Chaos wieder zu entwirren? U 142 


Der C64 als Psychiater 

Haben Sie ein Problem? Dann fragen Sie den Computer. 

Leider versteht der Computer nur Englisch. Schaffen 

Sie es, des Programm auf Deutsch umzuschreiben? H 143 


Die Knobelecke 1 

Lösen Sie eine knifflige Aufgabe und gewinnen Sie 

Bücher, die für jeden C64-Besitzer unentbehrlich sind 140 


Warum sich die Augen 
ruinieren bei der Fehlersuche 
in Basic-Programmen? 

Es geht viel leichter: 

Das Basic-Kontroll- 
System erkennt für 
Sie Syntax-Fehler und 
sogar unsauberen 
Programmierstil. 

Seite 24 


































W er sich intensiver 
mit Basic-Program- 
mierung beschäftigt, 
wird sich nach einiger Zeit zu¬ 
sätzliche Befehle wünschen, die 
beispielsweise das Editieren er¬ 
leichtern. Im Handbuch erfahren Sie, 
wie mit dem vorhandenen Befehlssatz 
des C64 Sounds, Sprites oder Grafik pro- « 
grammiert werden können. Es geht aber M 
auch einfacher, wie der C128 mit seinem V 
Basic 7.0 zeigt. 

Sehr nützlich ist zum Beispiel ein AUTO- 
Befehl: Bei längeren Programmen, die Sie 
selbst schreiben oder abtippen, ist es ange- 
nehm, wenn nach einem < RETURN > zum 
Abschluß einer Zeile nicht immer wieder die neue 
Zeilennummer eingetippt werden muß. 

Programmierer erleben häufig folgendes Problem: Die 
Zeilennumerierung wird in Zehner-Schritten gewählt, um 
nachträgliche Ergänzungen einbauen zu können. Bei vie¬ 
len Änderungen reicht dann der Platz nicht mehr, weil keine 
freien Zeilennummern vorhanden sind. Also müßte das 
Programm umnumeriert werden. Aber wie? Alle Zeilen¬ 
nummern wieder neu schreiben? Wenn innerhalb von Zei¬ 
len die Sprungziele eines <GOTO> oder <GOSUB> 
nicht zusätzlich geändert werden, kann es zu merkwürdi¬ 
gen Überraschungen im Programmablauf kommen. Abge¬ 
sehen davon, daß dieser Weg bei längeren Programmen 
ohne Fehler kaum durchführbar ist: Es fehlt der entspre- 




wä 


Mit dem Basic 2.0 
des C 64 können 
Sie schon eine Menge 
anfangen. Aber 
Gutes läßt sich noch 
verbessern. Hier einige 
der wichtigsten 
Basic-Erweiterungen: 
Machen Sie 
mehr aus Ihrem Computer. 
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chende RENUMBER-Befehl, mit dem die Umnumerierung 
sehr einfach ausgeführt werden kann. 

Haben Sie - nach einer langen Programmiersitzung - un¬ 
absichtlich NEW eingegeben? Wer vorher vergessen hat, 
das Ergebnis der stundenlangen Arbeit auf Diskette oder 
Datasette zu speichern, wird nicht besonders erfreut sein: 
Das Programm Ist verschwunden. Zwar gibt es Tricks, mit 
denen das Programm gerettet werden kann, aber nicht je¬ 
der weiß, wie er dazu vorgehen soll. Wohl dem, der eine 
Basic-Erweiterung mit dem rettenden OLD-Befehl besitzt. 

Die Darstellung von Sprites ist eine fantastische Eigen¬ 
schaft des C64. Eine professionelle Programmierung von 
Sprites in Basic erfordert aber gute Kenntnisse des VIC (Vi¬ 
deo Interface Chip) und einen intensiven Gebrauch des 
POKE-Befehls. 

Nicht viel anders sieht es mit der Grafikprogrammierung 
aus. Haben Sie schon einmal versucht, einen Kreis auf dem 
Bildschirm darzustellen? Statt eines einfachen CIRCLE- 
Befehls gehören beim C64 einige Vorbereitungen und Be¬ 
rechnungen dazu. 

Die genannten Schwierigkeiten führten schnell zur Veröf¬ 
fentlichung von Programmen, die den Befehlssatz des Ba- 




ein oder zwei nützliche Zusatzbefehle integrierten. Ebenso 
wurden spezielle Erweiterungen vorgestellt, die Speziali¬ 
sten auf Gebieten wie Sound- oder Grafikprogrammierung 
waren. 

Eine der ersten Befehlserweiterungen, die sehr umfang¬ 
reiche Ergänzungen und Neuerungen bot, war Simons Ba¬ 
sic. Ein wesentlicher Vorteil dieser Basic-Erweiterung war, 
daß sie als Modul vertrieben wurde: Nach dem Einstecken 
des Moduls in den Expansions-Port des C64 verfügte man 
sofort über eine Vielzahl von neuen Befehlen. 

Simons Basic brachte neben Programmierhilfen wie 
<AUTO> oder <DUMP> Befehle, die strukturiertes Pro¬ 
grammieren erlaubten (beispielsweise LOOP..END LOOP, 
IF...THEN...ELSE). Während das Einschalten einer hoch¬ 
auflösenden Grafik im Standard-Basic einige Zeilen mit 
vielen POKEs füllte, genügte in Simons Basic der HIRES- 
Befehl. 

Simons Basic war für viele Programmierer eine wahre 
Fundgrube: Es gab kaum einen Bereich, für den es keinen 
sinnvollen Befehl gab. Ob Joystickabfragen oder Abfragen 
für Light-Pen und Paddle, ob komfortable Spriteprogram- 
mierung und eine Bildschirmsteuerung: Mit Simons Basic 
wurde die Basic-Programmierung erheblich vereinfacht. 

Simons Basic wird zwar heute nicht mehr vertrieben, 
ist aber bei vielen C64-Besitzern noch zu finden, da es 
es einige Zeit auch auf Diskette von Commodore ange- 
angeboten wurde. Wer Programme für private Zwecke 
schreiben will, findet mit Simons Basic eine hervor¬ 
ragende Unterstützung. 

Lange Zeit wurde Exbasic Level II nur kommerziell 
vertrieben: In diesem Sonderheft finden Sie das 
komplette Listing zu Exbasic Level II zum Ab¬ 
tippen. 

Uber 70 neue Befehle erleichtern die Basic- 
Programmierung. Eine Aufstellung der neuen 
Befehle mit kurzen Erläuterungen und Bei¬ 
spielen finden Sie ab Seite 10. Wer sich nicht 
die Mühe des Abtippens machen will, hat 
zwei Möglichkeiten: Auf der Programmser¬ 
vice-Diskette zu diesem Sonderheft ist ne¬ 
ben allen anderen Listings auch Exbasic 
Level II enthalten. Sie können diese Basic- 
Erweiterung auch als Modul bei der im Info 
am Ende dieses Artikels angegebenen 
Adresse bestellen. Dieses Modul des C 64 
wird in den Expansions-Port hinten rechts 
am Gehäuse eingesteckt. 

Ein Modul, das neben einer umfangreichen 
Basic-Erweiterung eine Vielzahl sinnvoller 
Funktionen enthält (Bild 1), ist Magic Formel. 
Wir beschränken uns hier im Rahmen dieses 
Artikels auf die zusätzlichen Befehle. 

Bereits die Einschaltmeldung mit »116kROM, 
72kRAM, 38911 BASIC Bytes free- deutet die Lei¬ 
stungsfähigkeit der Erweiterung an. Die neuen Basic- 
Befehle können in drei Gruppen aufgeteilt werden: 
»Toolkit«, »DOS-Befehle« und »Grafik«. 

Ein wichtiger Befehl ist <HELP>: Er listet alle zur 
Verfügung stehenden Basic-Befehle auf dem Bild¬ 
schirm auf. 

Zu den Toolkit-Befehlen gehören beispielsweise eine au¬ 
tomatische Zeilennumerierung, ein Renumber-Befehl, 
oder das .Retten von gelöschten Basic-Programmen mit 
< OLD >. Sehr hilfreich ist der Suchbefehl < FIND >, der in 
einem Basic-Programm nach einer von Ihnen anzugeben¬ 
den Zeichenkette sucht. Wer ein Listing auf dem Drucker 
ausgeben will, kann dies sehr einfach mit < LLIST > erledi¬ 
gen; dieser Befehl ersetzt die im Standard-Basic übliche 
Sequenz »OPEN 4,4:CMD 4:LIST:CLOSE 4«. 
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Zu den DOS-Befehlen, also den Befehlen, die sich mit 
dem Diskettenbetrieb befassen, gehören beispielsweise 
< DLOAD > und < DSAVE >, die ein Basic-Programm we¬ 
sentlich schneller laden und speichern als unter dem 
Standard-Basic. 

Besitzer eines zweiten Diskettenlaufwerks werden den 
Befehl <CDRIVE> begrüßen, mit dem ein Laufwerksehr 
schnell auf Geräteadresse 9 umgestellt werden kann. 

Wollen Sie ein Basic-Programm unter Magic Formel la¬ 
den und starten, das nicht mit dem Modul zusammenarbei¬ 
tet, verwenden Sie den Befehl <CRUN>: Der Rechner 
wird vor dem Starten des Programms in den Originalzu¬ 
stand zurückgesetzt. Sie kommen aber immerhin noch in 
den Genuß der Schnelladeroutine. 
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Toolkit off 


MAGIC BASIC 
clear RAM 


M.F.Windows 
■: tT Interrupt Menu 


Bild 1. Mit der Funktionstaste <F5> aktivieren Sie im 
Hauptmenü die Basic-Erweiterung 


Die Grafikbefehle unterstützen hochauflösende Grafik 
mit 320 x 200 Punkten und Multicolor-Grafik mit 160 x 200 
Punkten. Bis zu vier Grafikseiten werden verwaltet. 

Mit den vorhandenen Befehlen fällt es nicht schwer, an¬ 
sprechende Grafiken zu erstellen: Jede Grafikseite kann 
gezielt angewählt werden, Sie können Punkte setzen 
((PLOT)), Linien zeichnen (<LINE> oder <DRAW>), 
Rechtecke (< BOX>) oder Kreise (< CIRCLE >) erstellen. 
Flächen können mit verschiedenen Farben ausgefüllt wer¬ 
den, eine gesamte Grafik invertiert werden. 

Magic Formel ist keine spezielle Basic-Erweiterung, bie¬ 
tet es doch eine Menge zusätzlicher Funktionen. Der vor¬ 
handene Befehlssatz erleichtert das Editieren von Pro¬ 
grammen, vereinfacht die Arbeit mit dem Laufwerk und un¬ 
terstützt das Programmieren von Grafiken. Basic-Befehle 
von Magic Formel finden Sie in Tabelle 1 aufgelistet. 

Mit dem Hyper-Basic-Modul (Bild 2) wird ein effektives 
Programmieren in Basic erheblich vereinfacht: Über 100 


assembler 

auto 

edrive 

cat 

dappend 

delete 

dec 

dir 

dload 

dsave 

dverify 

config 

find 

help 

hex 

jump 

llist 

Iprint 

off 

old 

renum 

crun 

send 

Status 

hi res 

multi 

clear 

plot 

invert 

line 

text 

graphik 

page 

box 

draw 

mix 

copy 

circle 

gsave 

gload 

frame 

hprint 

vprint 

block 

fill 

replace 

Irun 



Tabelle 1. Basic-Befehle von Magic Formel im Überblick 


neue Basic-Befehle unterstützen String- und Soundbear¬ 
beitung ebenso wie Grafik- oder Sprite-Programmierung. 

Das integrierte Hardcopy-Modul läßt kaum noch Wün¬ 
sche offen, vor dem Ausdruck einer Grafik können Sie die¬ 
se beispielsweise noch editieren. Die Befehle zur Arbeit mit 
dem Diskettenlaufwerk kennen Sie von der Utility auf der 
Test/Demo-Diskette, Ladevorgänge werden zirka um den 
Faktor 12 beschleunigt. 

Da Hyper-Basic eine Fülle von Befehlen bietet, wollen wir 
Ihnen nur einige ausgesuchte Leckerbissen vorstellen. Die 
Liste der Befehle finden Sie in Tabelle 2. 

Eine komplette Befehlsübersicht auf dem Bildschirm 
können Sie sich durch Eingabe von <HELP2> oder durch 
Drücken der Tasten <SHIFT Fl > ausgeben lassen. Vor¬ 
bildlich ist bei der Übersicht, daß nicht nur die Befehle, son¬ 
dern auch die Syntax dargestellt werden. Das erspart oft 
den Blick ins (ausführliche) Handbuch. 

Die Funktionstasten sind nach dem Einschalten mit häu¬ 
fig verwendeten Befehlen belegt. Sie können aber jederzeit 
mit < KEY > eine eigene Belegung vornehmen. Durch Ein¬ 
beziehung der CTRL- und CBM-Taste stehen Ihnen insge¬ 
samt sechzehn Funktionstasten zur Verfügung. 

Als Basic-Spezialist bietet das Modul Befehle zur struktu¬ 
rierten Programmierung: Mit <DO WHILE>, <LOOP 



<15 DIRECTORY ANZEIGEN 
<25 FILE-COPY PROGRAMM 


DISK-BACKUP PROGRAMM 
<45 DISKNAME/-ID AENDERN 
<55 LOESCHUTZ-B1T AENDERN 
<G5 GESCRATCHTES PRG RETTEN 
<75 AKT IUE LAUFWERKSNR AENDERN 
<85 HYPER-BASIC SYSTEM AKT 1U1 EREN 
♦ 

[BITTE UAEHLEN SIE! 


Bild 2. Über 100 neue Basic-Befehle plus Disketten-Utility: 
Das Hyper-Basic-Modul läßt kaum noch Wünsche offen. 

UNTIL> oder <EXIT IF> lassen sich einfache Schleifen 
konstruieren, aus denen man an beliebiger Stelle ausstei¬ 
gen kann. 

Das Abfangen von Fehlern innerhalb eines Programms 
erfolgt mit < ERRINIT >. Tritt im Verlauf des Programms ein 
Fehler auf, wird keine Fehlermeldung ausgegeben. Geben 
Sie hinter dem Befehl zum Beispiel ein <GOTO 100 > ein, 
wird zu einer Fehlerbehandlungs-Routine ab Zeile 100 ge¬ 
sprungen. Vorausgesetzt, Sie haben dort eine solche Rou¬ 
tine programmiert. 

Die bedingte Verzweigung in Unterprogramme wird ohne 
ständige IF-Abfragen zur Überprüfung von Fehleingaben 
möglich: <GKEY Zeilennummer, ASCII-Wert> beachtet 
nur die Taste, die im Befehlsaufruf angegeben ist, und ver¬ 
zweigt an die angegebene Zeilennummer. 

Bildschirmmasken können mit dem Aufruf von 
<MASKEDIT> erstellt oder editiert werden. Die fertige 
Bildschirmmaske wird nach Beendigung automatisch in 
Form von Basic-Zeilen im Speicher abgelegt. 

Benötigen Sie für Ihre Bildschirmmaske ein Rechteck als 
Umrahmung: <RECLOW> erledigt das sehr schnell, die 
Farbe können Sie ebenfalls als Parameter eingeben. Das 
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Bild 3. Die beiden Steckmodule von Roßmöller bieten viele 
Funktionen auf kleinstem Raum. 

Scrollen eines rechteckigen Bildschirmausschnitts bewir¬ 
ken Sie mit dem Befehl <SCROLL>. Eine Verschiebung 
ist in beliebiger Richtung möglich. 

Für die Programmierung von Sprites gibt es eine Vielzahl 
von Befehlen. Mit <BIGSPR> werden beispielsweise die 
ersten vier Sprites zu einem großen Sprite zusammenge¬ 
fügt. Mit Zusatzparametern legen Sie fest, ob das Sprite im 
Vordergrund oder Hintergrund erscheinen soll oder ob es 
sich um ein Multicolor-Sprite handelt. Zusätzlich kann es in 
X- und Y-Richtung vergrößert werden. Mit dem Befehl 

< SETBIG > wird das große Sprite auf dem Bildschirm po¬ 
sitioniert. 

Wollen Sie einen Text an einer bestimmten Zeile und 
Spalte auf dem Bildschirm ausgeben? Mit <SETCUR> 
kein Problem: Der Cursor wird entsprechend Ihren Einga¬ 
ben positioniert. 

Was im Standard-Basic nur mit einer längeren Abfrage 
möglich ist, wird mit Hyper-Basic in einem Befehl erledigt: 

< INSTR> sucht in einem String einen Teilstring und legt 
die gefundene Startposition in einer Variablen ab. 

Die Soundfähigkeiten des C 64 werden von Befehlen wie 
<WAVE>, <FMOD> und vielen anderen unterstützt. 

Ein ganz besonderer Leckerbissen wird mit dem Befehl 
<DTOOLS> aufgerufen. Mit dem Menü, das nach dem 
Aufruf auf dem Bildschirm erscheint, können Sie unter ver¬ 
schiedenen Optionen auswählen. Haben Sie unabsichtlich 
ein Programm auf Diskette gelöscht? Mit den Disk-Tools 
wird das Retten des Programms kein Problem. 

Zusammen mit anderen Tools ist Tool-Basic in den Aus¬ 
gaben 1/88 und 2/88 des 64'er-Magazins als Listing des 
Monats veröffentlicht worden. 

Ob Sie fantastische Grafiken erstellen, ein professionel¬ 
les Softscrolling einbauen oder tolle Sprites animieren wol¬ 
len: Mit den Befehlen dieser speziellen Basic-Erweiterung 
wird das alles kinderleicht. 

Die zahlreichen Befehle lassen sich in drei Kategorien 
einordnen. Der erste Teil befaßt sich mit der Bildschirmver¬ 
waltung, ein zweiter Teil erlaubt eine optimale Spriteverwal- 
tung, der dritte Teil bietet eine Vielzahl von Befehlen für eine 
sinnvolle Kollisionsverwaltung. 

Ob es sich um Kollisionen von Sprites untereinander 
oder zwischen Sprites und Bildschirminhalten handelt: 
Tool-Basic läßt kaum Wünsche offen. In Verbindung mit 
dem Rest des Gesamtpakets lassen sich professionelle 
Spieleffekte programmieren: »Uridium« läßt grüßen. 

Zwei preisgünstige Module, die unter dem Namen »Utility 
I« und »Utility II« vertrieben werden (Bild 3), bieten - neben 
weiteren sinnvollen Funktionen - Zusatzbefehle, mit denen 
Grafikprogrammierung vereinfacht wird. 

Die Funktionstasten sind mit nützlichen Befehlen belegt: 
Anzeige des Directory ohne Datenverlust, OLD-Befehl 
nach einem versehentlichen NEW oder Reset, Start einer 
Bildschirmhardcopy. Die Grafikbefehle erlauben ein 



schnelles Zeichnen von Kreisen, Punkten und Linien. Die 
Stärken dieser beiden Module liegen sicher nicht in der 
Basic-Erweiterung, sondern eher in den Zusatzfunktionen 
wie Sprite-Editor oder Monitor. 

Unsere Vorstellung einiger Erweiterungen zum Basic 2.0 
des C 64 kann natürlich nicht den Anspruch erheben, voll¬ 
ständig zu sein. Es gibt eine Vielzahl anderer Spracherwei- 
terungen, die näher anzuschauen sich lohnt. 

Einen Nachteil, den alle Erweiterungen gemeinsam ha¬ 
ben, wollen wir nicht verschweigen: Programme, die Sie mit 
den neuen Befehlen erstellen, funktionieren nur unter der 
Umgebung der Spracherweiterung. Wenn Sie das Pro¬ 
gramm weitergeben, müssen Sie Ihre Erweiterung dazule¬ 
gen. Unter Basic 2.0 meldet sich der C64 sonst nur mit 
»Syntax error«. 

Wer jedoch eigene Anwendungen programmieren will, 
hat die freie Auswahl. Ein Superpaket und sehr preiswert ist 
Exbasic Level II. Allen Wünschen gerecht wird Hyper- 
Basic, das durch seinen Umfang und Zusatztools wie Moni¬ 
tor, Diskettenmonitor und Assembler jeden Basic-Pro- 
grammierer begeistert. (ef) 

Bezugsquellen: 

MAGIC-FORMEL V2.0: Grewe Computertechnik GmbH, Richard-Wagner-Str.73,4350 Reckling¬ 
hausen, zirka 170 Mark 

HYPER-BASIC: Andreas Bude, System Hard- und Software, Bonner Str. 34,5216 Niederkassel 
6, zirka 80 Mark 

EXBASIC LEVEL II und UTILITY I und II: RoflmSller Handshake GmbH, Neuer Markt 21, 5309 
Meckenheim, jedes einzelne Modul zirka 40 Mark 


auto 

back 

beep 

bigspr 

bin 

blink 

calim 

case 

catalog 

centre 

check 

clearz 

clhi 

cltext 

color 

convert 

copy 

dec 

**«'>. e 

delrem 

detekt 

diskin 

do/loop/exit 

dtools 

dump 

dupear 

eob 

erchan 

erdisk 

errinit 

erraff 

errout 

fast 

ffoff 

fillbs 

fillfa 

fiiter 

find 

fmod 

frame 

frq 

gkey 

grepson 

grhrdcpy 

groff 

grpa 

grwind 

hardcopy 

help 

help2 

hex 

hires 

huellk 

instr 

invers 

jsaus 

jsein 

jump 

key 

killarray 

line 

lis 

lodprg 

maskedit 

mcvarsprite 

mergea 

mergee 

midch 

midstr 

mode 

modus 

move 

mulcol 

nrm 

numeric 

off 

page 

pause 

pen 

plot 

puls 

ram 

ramvar 

reclow 

reclr 

red 

renum 

restre 

resume 

retkey 

revtext 

room 

savprg 

screen 

scrnld 

scrnsv 

scroll 

search 

setbig 

setcur 

setsid 

setspr 

settext 

sline 

slow 

small 

sort 

sound 

split 

sprein 

sprite 

sprpar 

sprreg 

sprtext 

String 

swapar 

swapva 

fall 

text 

trans 

varram 

varsprite 

Video 

view 

vol 

wave 

winp 

zeilbs 

wline 

woutp 


Tabelle 2. Übersicht der Hyper-Basic-Befehle 


SONDERHEFT 40 


9 








asic ist die am weitesten verbreitete Programmier¬ 
sprache unter den Heimcomputern. Auch der C64 
stellt sofort nach dem Einschalten Basic zur Verfü¬ 
gung. Mit Basic 2.0 lassen sich bereits viele Anwendun¬ 
gen programmieren. Wer aber beispielsweise Grafik 
oder Musik programmieren will, kommt ohne genaue 
Kenntnisse des Betriebssystems kaum weiter. 

Erheblich einfacher wird das Programmieren mit Ex- 
basic Level II (Listing 1). Diese Basic-Erweiterung bietet 
eine Vielzahl zusätzlicher Befehle und hilfreicher Funk¬ 
tionen, die im normalen Basic 2.0 des C64 oft vermißt 
werden. 


aufgaben bietet sich der Einsatz einer "IF...THEN...EL¬ 
SE " -Konstruktion an, die im Standard-Basic fehlt. Exba- 
sic hat diese Funktion ebenso integriert wie einige ande¬ 
re Strukturanweisungen. 

Die Stärken von Exbasic Level II liegen eindeutig im 
professionellen Bereich. Mit Exbasic erarbeiten Sie aber 
beispielsweise leistungsfähige Finanzprogramme, stati¬ 
stische Auswertungen, Balkendiagramme oder andere 
interessante Anwendungen. (Wer Spiele oder schöne 
Hires-Grafiken programmieren möchte, wird lieber auf 
andere Basic-Erweiterungen zurückgreifen.) 

Die zusätzlichen Programmierhilfen werden viele An- 



Finden Sie es lästig, die Zeilennummern eines Pro¬ 
grammes bei jeder neuen Zeile schreiben zu müssen? 
Exbasic hilft Ihnen mit einer automatischen Zeilennume¬ 
rierung. Wollen Sie eine Übersicht aller in Ihrem Pro¬ 
gramm verwendeten Variablen sehen? Kein Problem 
für Exbasic. 

Strukturiertes Programmieren 
ist mit Basic 2.0 nicht 
gerade einfach zu 
verwirklichen. 

Für viele Pro- 4% • 

grammier- 


wender begeistern. Datasettenbesitzer werden von den 
integrierten schnellen Kassettenlade-Routinen begei¬ 
stert sein. Besitzer eines Diskettenlaufwerks 
finden eine Erweiterung integriert, die 




Q 


Über 70 neue Basic-Befehle stellt Ihnen diese 
mächtige Basic-Erweiterung zur Verfügung. Ba- 
sic-Listings und abscrollen oder einfaches Bele¬ 
gen der Funktionstasten sind nur zwei kleine Bei¬ 
spiele für die große Leistungsfähigkeit von Exba¬ 
sic Level II, die das Herz eines jeden Basic-Pro- 
grammierers höher schlagen lassen. 



dem DOS 5.1 auf der Test/Demo-Diskette verwandt ist. ist zunächst nach Gruppen geordnet. Innerhalb der 
Doch damit genug der Vorrede - kommen wir nun zu ei- Gruppen finden Sie die zusätzlichen Befehle alphabe- 
ner Darstellung der verschiedenen Befehle von Exbasic. tisch sortiert. 

Geben Sie das Listing 1 bitte mit dem MSE (Seite 159) Die jeweilige Anweisung ist fettgedruckt. Sind zusätz- 
ein und speichern Sie es auf Diskette. liehe Parameter notwendig oder möglich, werden sie im 

Geladen wird es mit: Anschluß angegeben. Ein kurzes Beispiel soll den Be- 

LOAD "EXBASIC L II'',8,1 fehlerläutern. 

Starten Sie es anschließend mit RUN. Exbasic meldet Die verwendeten Zeichen in der Beschreibung bedeu- 

sich mit einer eigenen Einschaltmeldung. Um die zum ten: 




Teil sehr komplexen Befehle korrekt 
beschreiben zu können, werden 
wir eine einheitliche 
Syntax vereinbaren. 
Die nachfolgen¬ 
de Auflistung 
der Befehle 
a. von Exbasic 











- eckige Klammern: Die eingeschlossenen Parameter 
sind optional, das heißt sie können gegebenenfalls auch 
weggelassen werden. 

- geschweifte Klammern: Die eingeschlossenen Para¬ 
meter sind alternativ, das heißt einer der durch Schräg¬ 
striche getrennten Parameter wird an dieser Stelle ein¬ 
gesetzt. 

- Parameter ohne Klammern: Diese sind bindend 
und müssen angegeben werden. 
- Dollarzeichen: Dieser Ausdruck kennzeichnet 

einen String. 


c 
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LISTINGS 


C64 



Kurzinfo: Exbasic Level 


Programmart: Komfortable Basic-Erweiterung 
Laden: LOAD 'EXBASIC L II-.8,1 
Starten: Nach dem Laden RUN eingeben, 

Besonderheiten: In den C64 eingebaute Floppyspeeder und die 
Ins Programm integrierte Schnellade-Routine arbeiten eventuell 
nicht zusammen. Verwenden Sie in diesem Fall entweder den 
LOAD*-Befehl. oder schalten Sie den eingebauten Floppyspeeder 
aus, 

Programmautor: Michael Krause 


Editierbefehle 


AUTO [zeilennummer[,Schrittweite]] 

Die automatische Zeilennumerierung, beginnend bei 
»zeilennummer« in Schritten der »Schrittweite«, wird einge¬ 
schaltet. Jeweils nach Eingabe einer Programmzeile wird 
nun die nächste Zeilennummer vorgegeben. Ersatzwert für 
»zeilennummer« ist 10, beziehungsweise, wenn schon Zei¬ 
len eingegeben wurden, die letzte Zeilennummer plus der 
Schrittweite. Ersatzwert für die Schrittweite ist 10. Der Ab¬ 
bruch dieses Modus erfolgt durch das Drücken von < RE¬ 
TURN > in einer leeren Bildschirmzeile. 

Beispiel: AUTO 10,10 
DEL bereich 

Löscht Programmzeilen. Als »bereich« kann eine Start-, 
eine End- oder eine Start- und Endzeile angegeben wer¬ 
den. 

Beispiele: »DEL 100-«, »DEL -500« oder »DEL 50-300« 
DUMP 646R OH 

Gibt die momentanen Werte aller Variablen aus. Starten 
Sie dazu ein Basic-Programm. Nach Abbruch an beliebiger 
Stelle listet DUMP alle nichtindizierten Variablen auf. 

FIND [text/"text"][,bereich] 

Findet angegebenen Text oder Anweisung(en) im Pro¬ 
gramm und listet die Zeilen im angegebenen Bereich auf 
(»bereich« wie bei DEL). 

Beispiel: FIND REM findet alle REMs 
FIND "Text" findet beliebigen Text 
HELP].] 

Gibt mit »*« eine Liste aller Standard-Basic-, sonst aller 
Exbasic Level Il-Befehle auf dem Bildschirm aus. 

KEY [{keynummer,ausdruck$j] 

Ändert die Belegung der Funktionstasten. In dem String 


wird die Return-Taste durch 

»*— « 

repräsentiert. 

Standardbelegungen: 

Fl LIST 

F5 

RUN - 

F2 AUTO 

F6 

GOTO 

F3 DUMP - 

F7 

FIND 

F4 MATRIX - 

F8 

MEM - 


BeispieLKEY 1, "list 10-20—" 

Der Pfeil hinter dem Befehl bewirkt, daß der Befehl beim 
Drücken der Taste sofort ausgeführt wird. 

LOAD [*[ausdruck$[,gerätenummer[,sekundäradresse]]]/ 
[ausdruck$]] 

»LOAD« lädt Programme mit zirka sechsfacher Ge¬ 
schwindigkeit von Kassette. »LOAD .« wählt das normale 
Laden. 

Beispiel: LOAD* "PROGRAMM" 

MATRIX 

Gibt die Werte aller Feldvariablen aus (erst sinnvoll nach 
dem Start und Abbruch oder innerhalb eines Programms). 

MEM 

Gibt die momentane Speicherbelegung aus. 


MERGE [*ausdruck$[,gerätenummer]/[ausdruck$]] 
Verbindet zwei Programme miteinander; das erste steht 
im Speicher, das zweite mit Namen »ausdruck$« wird mit 
MERGE hinzugeladen. Die Zeilen werden entsprechend 
ihrer Numerierung in das Programm eingesetzt. 

MERGE* "PROGRAMM1 ",8 
RENUM [zeilennummer],Schrittweite]] 

Numeriert die Programmzeilen neu durch. Das neue 
Programm beginnt ab »zeilennummer« mit dem Abstand 
»Schrittweite«. Es werden die Referenzen nach ELSE, GO¬ 
TO, GOSUB, LIST, RUN, RESTORE, RESUME und THEN 
korrigiert. 

Beispiel: RENUM 10,10 

SAVE (.[ausdruck$[,gerätenummer]]/[ausdruck$]] 

»SAVE« schreibt Programme mit zirka sechsfacher Ge¬ 
schwindigkeit auf Kassette. »SAVE *« wählt die normale 
Schreibgeschwindigkeit an. 

SPACE [OFF] 

Schaltet formatiertes Listen eines Basic-Programms ein: 
Hinter Befehle werden Leerzeichen zur besseren Lesbar¬ 
keit eingefügt. 

TRACE {ON/[OFF]| 

Aktiviert (»ON«) oder desaktiviert (»OFF«) den 
TRACE-Modus, in dem die jeweils abgearbeitete Basic- 
Zeile in den beiden obersten Bildschirmzeilen aufgelistet 
wird. Nach dem Programmstart mit RUN halten Sie den 
Programmablauf mit < Control > an. Mit <Commodore> 
geht es weiter, mit <RUN/STOP> brechen Sie wie ge¬ 
wohnt ab. 

VERIFY [*[ausdruck$[,gerätenummer[,sekundäradres- 
se]]]/[ausdruck$]] 

»VERIFY« vergleicht das mit »SAVE« gespeicherte Pro¬ 
gramm nit zirka sechsfacher Geschwindigkeit von Kasset¬ 
te. »VERIFY *« wählt das normale Vergleichen an. 

Der Punkt kann an Editierbefehlen angehängt werden 
und steht für »letzte bearbeitete Zeile«. Beispiel: »LIST.« li¬ 
stet die zuletzt bearbeitete Zeile. 

Mathematische Befehle 

DEC (ausdruckS) 

Liefert den Dezimalwert eines zwei oder vier Zeichen lan¬ 
gen Hex-Strings. 

A=DEC ("C000"): B=DEC ("9F") 

EVAL (ausdruckS) 

Berechnet den im String enthaltenen numerischen Aus¬ 
druck. Beispiel: A=EVAL ("12*2"): PRINT A liefert 24 als 
Ergebnis. Nur im Programm möglich. 

FRAC (ausdruck) 

Berechnet den Nachkommateil eines numerischen Aus¬ 
drucks. 

HEX$ (adresse) 

Erzeugt einen Hex-String des Werts »adresse«. 
Beispiel: A$=HEX$(49152) 

MIN (ausdruck,ausdruck[,ausdruck...]) 

Ermittelt den kleinsten Wert der angegebenen Aus¬ 
drücke. 

MAX (ausdruck,ausdruck[,ausdruck...]) 

Ermittelt den größten Wert der angegebenen Ausdrücke. 
Beispiel: A=MAX(12,-5,78,3,55) 

ODD(x) 

Prüft den numerischen Parameter »x« auf gerade oder 
ungerade. ODD ist als Boolesche Funktion anzuwenden, 
das heißt, es liefert einen Funktionswert, der ausgegeben 
oder einer Variablen zugeordnet wird. 0 steht hier für gera¬ 
de, —1 für ungerade Zahl. 
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RND(x) 

Ist eine Erweiterung des Basic 2.0-Befehls. Geben Sie 
als Parameter »x« einen Wert kleiner als zwei an, so arbeitet 
RND wie gewohnt. Werte größer als zwei liefern Zufallszah¬ 
len zwischen 1 und dem angegebenen Wert. 

Beispiele: A=RND(6) Zahl zwischen 1 und 6 

A=RND(21)+9 Zahl zwischen 10 und 30 
ROUND (ausdruck[,byteausdruck]) 

Rundet »ausdruck« auf »byteausdruck« Nachkomma¬ 
stellen (Standardwert 0). 

Beispiel: A=ROUND (12.5278,2) 

STRINGS (anzahl,[string$/asciicodej) 

Diese Funktion füllt einen STRING »anzahl« mal mit dem 
Zeichen, das durch »stringS« oder »asciicode« angegeben 
ist. 

Beispiele: A$=STRING$(5,»*«) 

A$=STR IN G$(5,42) 

In beiden Fällen enthält A$ die Zeichenkette »*****«, da der 
ASCII-Code des Malzeichens (»*«) 42 ist. 

Ein-/Ausgabe-Befehle 


INPUTFORM [" text" ;]var$[,byteausdruck][,färbe] 

Liest eine Tastatureingabe, deren Maximallänge durch 
»byteausdruck« (Standardwert 79) festgelegt sein kann, in 
die Variable »var$«; Eingabeaufforderung per »text«. 
Beispiel: INPUTFORM "Bitte Namen eingeben:";N$,10,5 
INPUTLINE ["text";]var$ 

Liest eine Eingabezeile ohne Rücksicht auf Kommata 
und Doppelpunkte von der Tastatur in die Stringvariable 
»var$«; Eingabeaufforderung per »text«. 

PRINT @ bildposition,(ausdruck/ausdruck$][;] 

Gibt den Wert von »ausdruck« beziehungsweise den In¬ 
halt von »ausdruckS«, beginnend an der angegebenen 
Bildschirmposition, aus. Der Wert für Bildposition kann von 
0 bis 999 gehen. 

Beispiel: PRINT@ 497,"Hallo" 

PRINT USING [# dateinummer,]ausdruck$,ausdruck 
[,ausdruck..]];] 

Gibt die Werte (der Variablen) »ausdruck« in dem in 
»ausdruckS« vorgegebenen Format auf dem Bildschirm 
oder bei spezifizierter Dateinummer in eine Datei aus. Gül¬ 
tige Formatzeichen in »ausdruckS« sind hierbei < # > (Zif¬ 
fer), < * > (Ziffer als < * > wenn gleich 0), < + > (Vorzei¬ 
chen immer ausgeben), <-> (Vorzeichen ausgeben, 
wenn Zahl negativ), <,> oder <.> (Dezimalkomma oder 
-punkt). Andere Zeichen werden identisch übernommen. 
Beispiel: »PRINT USING "DM ***,## + ",-8.272« führt zur 
Ausgabe »DM **8,27-«. 

Diskettenbefehle 


> oder @ 

Zeigt den Fehlerstatus der Diskettenstation an. 

>$ [text] 

Gibt das gesamte beziehungsweise den durch »text« 
spezifizierten Teil des Inhaltsverzeichnisses der Diskette 
auf dem Bildschirm aus, ohne das im Speicher befindliche 
Programm zu löschen. 

/ name 

Lädt ein Programm von Diskette, 
t name 

Lädt ein Programm von Diskette und startet es. 

— name 

Speichert ein Programm auf Diskette. 


DOS-Kommando: 

Funktion: 

c:nameneu=namealt 

i 

n:diskname,id 

r:nameneu=namealt 

s:name 

V 

Dateien kopieren. 

Diskette initialisieren. 
Diskette formatieren. 
Dateien umbenennen. 
Datei löschen. 

Diskette reorganisieren. 


>dos-kommando 

Sendet ein DOS-Kommando an die Diskettenstation. 

Strukturanweisungen 


IF ausdruck THEN block [ELSE block] 

Ist die zwischen »IF« und »THEN« stehende Bedingung 
erfüllt, so wird der nach »THEN« folgende Teil der Pro¬ 
grammzeile bearbeitet, andernfalls werden die hinter »EL¬ 
SE« folgenden Anweisungen abgearbeitet. 

ON ausdruck RESTORE zeilennummer[,zeilennummer...] 
Der angegebene »byteausdruck« bestimmt, auf die wie¬ 
vielte der Zeilennummern sich der »GOTO/GOSUB/RE- 
STORE«-Befehl beziehen soll. Sind nicht genügend Zeilen¬ 
nummern vorhanden, so wird der Befehl ignoriert. 

ON ERROR GOTO jzeilennummer/Oj 
Initialisiert eine Fehlerbehandlungsroutine, die bei Auf¬ 
treten eines Fehlers während der Ausführung eines Pro¬ 
gramms ab jetzt angesprungen wird, durch Angabe der er¬ 
sten Zeilennummer der Routine. Zeilennummer 0 schaltet 
dies aus. Die Variable »EL« enthält die Nummer der fehler¬ 
haften Programmzeile und »EC« die Nummer des Fehlers 
gern?'' folgender Tabelle: 


Code Bedeutung 

Code 

Bedeutung 

00 

Modul 

16 

Out of memory 

01 

Too many files 

17 

Undef’d Statement 

02 

File open 

18 

Bad subscrlpt 

03 

File not open 

19 

Redim'd array 

04 

File not found 

20 

Division by zero 

05 

Device not present 

21 

Illegal direct 

06 

Not output file 

22 

Type mismatch 

07 

Not input file 

23 

String too long 

08 

Missing filename 

24 

File data 

09 

Illegal device number 

25 

Formula too complex 

10 

Next without for 

26 

Can't continue 

11 

Syntax 

27 

Undef'd function 

12 

Return without gosub 

28 

Verify 

13 

Out of data 

29 

Load 

14 

Illegal quantity 

30 

Resume without error 

15 

Overflow 




Tabelle. Die Fehler-Codes von Exbasic Level II 


RESUME [[zeilennummer/NEXT]] 

»RESUME« beendet die Fehlerbehandlungsroutine. Oh¬ 
ne Parameter wird zu der zum Fehler führenden, mit NEXT 
zu der darauf folgenden Anweisung und bei Angabe einer 
Zeilennummer zu dieser Programmzeile verzweigt. 

Voriablenbearbeifung 


EXEC var$ 

Führt den Inhalt des Strings »var$« als Basic-Kommando 
aus. 

INSTR (ausdruck1$,ausdruck2$[,byteausdruck]) 

Sucht »ausdruck2$« in »ausdrucklS« ab Position »byte¬ 
ausdruck« (Standardwert 1). Ergebnis ist die Position der 
Übereinstimmung; 0 entspricht nicht gefunden. 
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SWAP [var,var/var$,var$] 

Tauscht die Werte zweier Variablen gleichen Typs aus. 
VARPTR (variablenname) 

Diese Funktion gibt die Adresse an, an der eine bestimm¬ 
te Variable im Arbeitsspeicher vom Betriebssystem abge¬ 
legt worden ist. Beispiel: A=13:PRINT VARPTR (A) liefert 
die Speicheradresse für A. 

Soundbefehle 


ADSR stimme,welle,a,d,s,r[,pulsweite] 

Wählt die ADSR Parameter (a=attack, d=decay, s=su- 
stain, r=release) für den Synthesizer. Zulässige Werte: 
stimme: 1 bis 3, attack: 0 bis 15, decay: 0 bis 15, sustain: 0 
bis 15, release: 0 bis 15, Pulsweite: 0 bis 4095. Als Wellen¬ 
form kann Dreieck (17), Sägezahn (33), Rechteck (65) mit 
wählbarer Pulsweite zwischen 0 und 4095 sowie Rauschen 
(129) ausgewählt werden. 

PAUSE byteausdruck 

Wartet »byteausdruck« geteilt durch 60 Sekunden. 
PLAY stimme,tonhöhe[,stimme,tonhöhe...] 

Spielt eine oder mehrere Noten. 

VOLUME byteausdruck 

Bestimmt die Lautstärke der durch PLAY gespielten No¬ 
ten (Bereich 0=!eise bis 15=laut). 

Grafikbefehle 


BORDER farbnummer 
Legt die Bildschirmrandfarbe fest. 

CEEK (bildposition.jc/sj) 

Fragt den Inhalt (Zeichencode beziehungsweise Farb¬ 
nummer) einer Bildschirmposition ab, wobei »s« das Zei¬ 
chen selbst oder »c« seine Farbe auswählt. 

Beispiel: X=CEEK(3,S) 


COKE bildposition,[s/c],ausdruck 
Ändert das Zeichen (»s«) beziehungsweise die Farbe der 
Bildschirmposition gemäß »ausdruck« (Zeichencode be¬ 
ziehungsweise Farbcode). 

Beispiel: COKE 888,65 
CURSOR farbnummer 
Legt die Cursorfarbe fest (0 bis 15). 

GROUND farbnummer 

Legt die Hintergrundfarbe des Bildschirms fest. 

HARDCOPY 

Druckt momentanen Bildschirminhalt auf einem mit der 
Geräteadresse 4 angeschlossenen Drucker (MPS-Serie) 
aus. 

LETTER [OFF] 

Schaltet zwischen Groß-/Kleinbuchstaben (LETTER) 
und Groß/Grafik-Modus um. 

LOCK i[ON]/OFF] 

Verriegelt die Groß/Kleinbuchstaben-Umschaltung. 
POINT (x,y) 

Liefert -1, wenn Viertelpunkt gesetzt, sonst 0. 

RESET x,y 

Löscht einen Punkt der Viertelpunkt (Lowres)-Grafik. 
SET (x,y)[,farbnummer] 

Setzt einen Punkt der Viertelpunktgrafik mit der Farbe 
farbnummer. 

Beispiel: SET (5,7) 

SPACE bildbereich[,byteausdruck[,farbnummer]] 

Füllt den angegebenen Bildbereich mit dem durch »byte¬ 
ausdruck« angegebenen Zeichen oder löscht ihn, wenn 
»byteausdruck« weggelassen wird. 

Beispiel: SPACE 0,0,39,24,65,1 

Die Werte setzen sich so zusammen: Spalte links oben, Zei¬ 
le links oben, Spalte rechts unten, Zeile rechts unten, Bild¬ 
schirmcode (das Zeichen A im Beispiel), Farbwert (schwarz 
im Beispiel). 


Name 

exbasic 

ii 


0801 2564 

08el 

: dd 

bO 

07 

20 

12 

02 

69 

06 

bf 

09dl 

: 7c 

a5 

la 

a7 

06 

83 

d8 

83 

82 











08e9 

: dO 

d4 

a2 

08 

20 

12 

02 

90 

89 

09d9 

: 08 

af 

41 

01 

4c 

48 

b2 

00 

fb 

0801 

0c 

08 

c3 

07 

9e 

32 

30 

36 

8c 

08fl 

: cd 

a9 

37 

85 

01 

58 

4c 

e2 

db 

09el 

: f4 

dO 

23 

2a 

2c 

2e 

2b 

2d 

87 

0809 

32 

ff 

00 

00 

00 

78 

aO 

c5 

0d 

08f9 

: fc 

b3 

ac 

e6 

ac 

dO 

02 

e6 

fe 

09e9 

: 20 

7e 

7c 

e2 

7b 

61 

ff 

ec 

60 

0811 

b9 

46 

08 

99 

fe 

00 

88 

dO 

d6 

0901 

: ad 

60 

91 

ae 

e6 

ae 

dO 

02 

44 

09fl 

: 6c 

7f 

el 

fb 

62 

fc 

fe 

aO 

60 

0819 

f7 

84 

01 

84 

ac 

84 

ad 

a2 

Oe 

0909 
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C64 


LISTINGS 


VPLOT ausdruck[,farbnummer] 

Zeichnet vertikale Balkengrafik mit der Balkenlänge 
»ausdruck« (Bereich 0 bis 200). 

Beispiel: 

10 PRINT TAB(4); 

20 VPLOT (SIN(X)+1)*120:X=X+.1:GOTO. 

HPLOT ausdruck[,farbnummer] 

Zeichnet horizontale Balkengrafik mit der Balkenlänge 
»ausdruck« (Bereich 0 bis 200). Beispiel: Ersetzen Sie in 
Zeile 20 »vplot« durch »hplot«. 


Systembefehle 


BASIC 

Verläßt EXBASIC LEVEL II und kehrt zum Standardbasic 
zurück, ohne das aktuelle Programm zu löschen (Reakti¬ 
vierung mit »?USR(0)«). 

DEF USR (adresse) 

Richtet den Einsprung-Vektor der Basic 2.0-Funktion 
USR(x) auf den 16-Bit-Wert »adresse«. 

Beispiel: DEF USR (828) richtet den USR-Vektor auf ein 
Maschinensprache-Programm im Kassettenpuffer. 

DEEK (adresse) 

Doppelbyte-PEEK. Ergebnis ist der aus »adresse« (LSB) 
und Adresse+1 (MSB) errechnete Wert: (Inhalt von »adres- 
se«)+256*(lnhalt von adresse+1). 

DISPOSE (CLR/RETURN/NEXT[var]J 
Schließt offene »FOR« und »GOSUB«- Schleifen. »DIS¬ 
POSE CLR« schließt alle offenen, »RETURN« das innerste 
»GOSUB« und »NEXT« die entsprechende »FOR - NEXT«- 
Schleife. 

DOKE adresse,ausdruck 

Zerlegt den Doppel-Bytewert »ausdruck« (im Bereich von 
0-65535) in LSB und MSB und speichert ihn an adresse 
(LSB) und an adresse+1 (MSB). 


Beispiel: DOKE 1,826 entspricht: 

POKE 1,58 und 
POKE 2,3 
HIMEM adresse 

Stellt die obere RAM-Grenze ein und führt »CLR« aus. 

LETTER [jON/OFFj] 

LETTER ON oder LETTER ohne Parameter schaltet auf 
den Groß-/Kleinschrift-Zeichensatz um, LETTER OFF auf 
den Groß-/Grafik-Zeichensatz. 

LOCK [[ON/OFFj] 

Verriegelt oder erlaubt, je nach Parameter, das Umschal¬ 
ten der Zeichensätze mittels der <SHIFT>- und der 
< Commodore > -Taste. 

RESTORE [zeilennummer] 

Ist eine Zeilennummer angegeben, so wird der DATA- 
Lesezeiger auf diese Zeile gestellt. 

SEC byteausdruck 
Wartet »byteausdruck« Sekunden. 

Um ein Basic-Listing auf- und abzuscrollen, benutzen Sie 
die entsprechenden Cursor-Tasten. 

Wir wünschen Ihnen viel Spaß bei der Anwendung der 
neuen Befehle, die ein komfortables Programmieren erlau¬ 
ben. (Michael Krause/ef) 


Exbasic Level II als Modul 

Auf der Programmservice-Diskette finden Sie unter 
dem Namen »EXBASIC MODUL« eine Version von Ex¬ 
basic, die in ein EPROM gebrannt werden kann. Wer die 
dafür erforderlichen Hardware-Zusätze nicht besitzt, 
kann das fertige Modul für 39,95 Mark bei folgender 
Adresse bestellen: 

Ruümöller Handshake GmbH 
Neuer Markt 21 
5309 Meckenheim 
02225/2061 
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C64 


prüft Ihre Basic-Programme. Fehlerhafte Zeilen 
werden angezeigt und auf Wunsch aus¬ 


gedruckt. Die zeitraubende und schweißtrei¬ 
bende Fehlersuche in einem 


Ein hervorragendes Hilfsprogramm 


wird damit kinderleicht. 


Detektiv 
für Basic- 

s Hilfsprogramm 

ehlerhafte Zeilen jay» 

auf Wunsch aus- 

und schweißtrei- | H 

iinem 



D as Basic-Kontroll-System (BKS) wurde ursprünglich entwickelt, um Leserlistings für das 64'er- 
Magazin auf Lauffähigkeit zu testen. Das kurze Maschinenprogramm (Listing 1) prüft 
ein im Speicher stehendes Basic-Programm Zeile für Zeile darauf, ob typische Feh¬ 
ler enthalten sind, beispielsweise: eine Klammer zu viel oder zu wenig, Syntaxfeh¬ 
ler, Formatfehler im Programmtext. Ganz besonders hat es das Fahndungspro¬ 
gramm auf Sprungbefehle abgesehen. Hier werden eigentlich alle möglichen 
Fehler gefunden. Doch das BKS ist sicher nicht nur für professionelle Pro¬ 
grammtester interessant, jeder Programmierer kann durchaus etws<- 
damit anfangen. Beispielsweise ein Einsteiger, der gerne über¬ 
prüfen möchte, ob das Basic-Programm, das er gerade ge¬ 
schrieben hat, auch sicher läuft. Aber auch Fortgeschrit¬ 
tene profitieren von diesem Programm. Nehmen 
wir einmal an, Sie haben ein längeres (vielleicht 
dazu noch fremdes) Basic-Programm vorliegen, 
das Sie nach eigenen Vorstellungen verbessern 
möchten. Sie nehmen hier und da eine Zeile heraus, x 

fügen dort eine neue ein und vertauschen einige Pro¬ 



grammteile. Doch was ist, wenn Sie dabei irgendwo 
einen Befehl »GOTO XX« übersehen haben, der jetzt auf 
eine nicht mehr existierende Zeile weist? Das Programm 
wird beim Testlauf aussteigen, üblicherweise dann, wenn 
man es am wenigsten braucht. 


Wenn Sie bereits Programmierprofi sind, kennen Sie 
sicher folgende Situation: Sie haben ein langes und kom¬ 
plexes Basic-Programm geschrieben, das von Maschi¬ 
nenprogrammen unterstützt wird. Da wird dann eifrig im 


Speicher herumgePOKEt, der Programmierer wirft mit » 

SYS-Befehlen um sich, ein Finger hat seinen Stamm- 

platz am RESET-Taster. Es ist bereits 2 Uhr nachts. ' 

Hoppla! Da haben Sie der v 

sehen POKE-Befehl der das 

Oder 

der 

Start des Pro- jimä 

gram ms den to- 
ialen Ab- ~-djS 
stürz zur jjäf 

Folge 









LOPPY, DATASETTE 


Mit diesen Sammelboxen sind Ihre Ausgaben immer 

sortiert und griffbereit. 


Eine Sammelbox faßt 
einen vollständigen 
Jahrgang mit 12 Ausgaben 
und kostet 14,- DM. 


SH 0013: HARDWARE 

Ein- Chip- Mlcrocomputtr / &»- 
anlollungen MIDI-Interlace. Spei- 

cberoszllloskop. IC- Teste I 


SH 9905: FLOPPY/DAT A- 
SETTE 

DiaKellen kopieren mit Hypra- 
Copy/ lOmal schneller laden mil 
TurboTapo äe Luna 


SH 0009: FLOPPY / DA¬ 
TEIVERWALTUNG 

Floppy- Beschleuniger Im Ver- 
gtachslest /Arbeiter mll dBase II / 
C 128- OlsKmonltor 


SH 0015: FLOPPY/DATA¬ 
SETTE 

Rep3raluranleirung Ersle Hille für 
die Diskehenslation / Hypralape: 


SH 0025: FLOPPY- LAUF¬ 
WERKE 

Werlvolle Tips und Inlormaiionen 
lür Einstiger und Forlgeschritiene 


SH 0028: GEOS / DATEI¬ 
VERWALTUNG 

Viele Kursezu GE0S / Tolle GEOS- 
Programme zum Ablippen 


Diese 64'er- Ausgaben bekom¬ 
men Sie noch bei Markt & Tech¬ 
nik für jeweils 6,50 DM. 

Tragen Sie die Nummer der ge¬ 
wünschten Ausgabe (z.B. 3/88) 
in den Bestellabschnitt der Zahl¬ 
karte nach Seite 34 ein. 


B/88: Übersichl Programmiersprachen lur C64 und 
CI28/C- Compiler Im Vergleich / Lernsollware: C64- 
Programmeaul einen Blick 

9/86: Enlscheidungshille So linde Ich den richtigen 
Drucker / Kopiorscnuß Die neuen Trends / Test Zwei 
Top- Assembler Im Vergleich 

10/86: Lisllng des Monals. 'Der Soundmonllor" / DFÜ; 
Die Interessantesten Mailboxen 
Großer Einstelger- Sanderteil 

11/88: L-.stlng: "Spellchecker' lür Vlrawrite 
Animation 3D- Gralik in Echtzeit 
Eingabegeräte Maus und Joystick Im Vergleich 

12/88: Übersicht: Hardware- Erweiterungen 
Bauanleilung: Centronics- Inlette* 
lisling des Monals: Floppy-Speeder 'Exos V3 - 

1/87: Spiele: Die Renner 86. Billrgspiele Im Tesl 
Fathmonilore im Vergleich / Großer Einsleigeitell So 
langt man an 

3/87: Zum Abtippen Koplerprogtamm der 
Spitzenklasse Z Diskellen Markenqualiffl gegen No- 
Name- Produkte CI28 Speicherawellerungen im Test 

4/87: Programmiersprachen: So arbeite: Pralis 
Lisling des Monals Terminalprogramm "Proletm V6' 
Tes! Farblernschgeraie als Monitorersaß 

5/87: Fractals Die Well der Aplelmännchen 
Kaulbille: Die bessen Floppy- Speedei 
37--ZOII- Floppy lür den C64 


im Überblick 


4/88: Gibt es einen neuen C64 7 / Alles Uber Blx und 
Oatenlernübertragung / GroBe Checkliste cum Kaut von 
Sollware 

5/88: C64 kontra Amiga. Atari & Co. 

Vergleichstesl Drucker / Im Härtetest Nouei Supcr- 
Joystick / Großer Elnsleiger- Sonderteil 

6/88: Keyboards am C64 / Markendlsketten im 
HanelosITesl: Floppy- Speedcr 
Neuer Kurs: Assembler 

8/88: Tips und Tricks ni Druckern / Basic- Kurs lür 
Elnsleiger / Alles über RAM. ROM. EPROM & Co. 

9/88: Neuei Kurs Drucker professionell oul/cn 
Messen. Sleuem, Regeln Proligeraio Im Tesl / Public 
Domain- Spiele 

10/88: tesl: Modems und Akustikkoppler 
Lisling des Monals: Super - Strategie- Spiel 
Musikhardwaro Im Vergleich 

tl/88: Publisti C64 Professionelles Diuckprogtamm 
(um Ablippen / Tesl: Malprogramm Glga- Painl 
Ratgeber Druckerkaut 

12/88: Weihnactits- Special: Die besten 
Geschenkten / Geheimtip Monitor lür 
40,-DM / Bauanleilung; Drucker- Interlace 

1/89: Die beslen Diuckprogramme / 20 Zeiler zum 
Ablippen / Malprogramme für den C128 Im Vergleich 
Jahrtsinhailsvwzeicbnis 

2/89: Test Schnellste Basic- Compiler 
Lisling:’Maste Copy Plus'/Spiele'88 
CompulerschreiBllsch zum Spartarll 

3/89: Kaulhille Floppies. Drucker, Monilore 
Bauanleitung: 256 KByte Zur 
Test: Geos 2.0 isl da / Viren im C 


RÜCKER 


Sonderhefte 
im Überblick 

Die 64er Sonderhefte bieten Ihnen umfassen¬ 
de Informationen in komprimierter Form zu 
speziellen Themen rund um die Commodore C 
64, C 128, C 16/116, VC 20 und denPlus/4. 
Diese Ausgaben hat Ihr Händler vorrätig - oder 
er bestellt sie gerne für Sie. 


2/88: Dasklop Publishing live: Zeitung rachen mit dem 
C54 / Tolles Malprogramm zum Ablippen 

3/88: Brennpunkl Spiele 

Spiele per ielelon u a. Kopioprogiamme 

Im Vergleich 


SH 9904: GRAFIK & DRUC¬ 
KER 

80- Zeichen- Karle rum Abtippen / 
Hardcopy- Routinen lOr viele Druc- 


SH 0018: DRUCKER 

Lisling. piolessionelle Textverar- 
beilung lür den MPS 801 /Malnx- 
drucket im Tesl 


SH 0032: FLOPPYLAUF- 
WERKE UND DRUCKER 

TlpsÄTools / RAM- Erweiterung 
des C64 / Druckerrmltfnen 































RAFIK, SOUND 


64-EINSTIEG 


SHOOII: GRAFIK, MUSIK, SH 0020: GRAFIK 
ANWENDUNGEN Gr,ulk- Programmierung / Down- 

50 Seilen Musikprogrammlerung / Oi"'Offn 

Vielseillge Buslnessgralik 


SH 0023: GRAFIK, AN¬ 
WENDUNGEN 

Außergewöhnliche Anwendungen 

auf dem C 64 mm Ablippon 


SH 0034: GRAFIK, SIMU¬ 
LATION, LERNEN 

Konstruieren mil dem CM / Kur- 
vendlskussron / Einstieg In die 
Digitaltechnik 


SH 0027: GRAFIK 

AMICA Paine Malprogramm 


SH 0005: C 64- GRUND- SH 0016: EINSTEIGER 2 
WISSEN Sprileanimalron- Zerchenlrlckfllm 

Vom ersten Einschalten bis mm mH hem Cotnpuler / GEOS, die 
eigenen Programm / Grundlagen, neue Benutrerobcrlläche 
Tips und Tricks 


SH 0019: EINSTEIGER 3 SH 0026: RUND UM DEN 

Basic- Kurs / Programm- Über- C 64 

slcl11 Der C 64 verständlich lür Alle mit 


SH 0001: C 128 

Oas können C12B und C128 D/ 
Vergleich: C128-C 64/die pas¬ 
sende Peripherie 


SH 0010:0 128 II SH 0022:0 128III 

Die Geheimnisse von CP/M / FarbigesSciollingim80- Zeichen- 
Kompletter C 128- Schaltplan / Modus/8-Sekunden-Koprerpio- 
Grallk lüt Elnstelgor gramm 


SH 0029: C 128 

Starke Software lür C128/0128 0/ 
Alles über den neuen C 128 D Im 
Blechgehäuse 


SH 0036: C 128 

Power 128 Directory komlorlabol 
organisieren / Haushaltsbuch Fl- 
naraen im Grill / 3D- landschallen 
aus dom Cotnpuler 


SH 0017: SPIELE FÜR 064 
UND C 128 

So programmier! man Scrolling / 
Strategiespiele Grips ist gelragt 


SH 0003: C16/116, VC 20. SH0008: PLUS/4 UND 01 
PLUS/4 Übersicht Zeropage und wichtig 

üstlngs 10, Spiele. Grahk. tips Syslemad^en/Gnindlagenun 

STrlcks / Anwendungen Daleivcr- *«* Llslings 


SH 9902: ABENTEUER¬ 
SPIELE 

45Seilen Adventlire- Programmier - 
Kurs / Llslings und Schrltt-IOr- 


SH 9903: SPIELE 

16p- Spiele- Llslings Br C 64 und 
VC 20 / Große Spiele- MavWOber- 

slchl 


SH 0004: ABENTEUER¬ 
SPIELE 

Kurs: Programmierung von Grallk 

Parser und künstlicher Inlelligen/ / 


SH 0030: SPIELE FÜR 064 
UND C 128 

TolleSpielerumAOlIppenlüi CM/ 
C 128/SDieleprogrammierung 


Viele Advcntures 


IPS&TRICKS, ANWENDUNGEN 


ICKS SH 9906 AUSGEWÄHLTE 
lelriebs- SUPERLISTINGS 

nlhehill- og, Besten Programme aus den 
64er- Magarinnn 1984/85 


SH 0002: TIPS&TRICKS 

Zelchensala- und Spille- Editor / 
Interrupt- Joyslickablrage / 2/ 
nützliche Elnroilet 


SH 9907: ANWENDUN¬ 
GEN/DFÜ 

Tdtminal und Maitborptogtamm 
mm Abtlppon/ Der C 64 als Winzei 


SH 0024 TIPS, TRICI 
TOOLS 

Die besten Poeks und Pokes 
Utilities mil Plitl 


SH 0033: TIPS,TRICKS & 
TOOLS 

Basic- Control- System / TiWge- 
netator / Digitale Super- Sounds / 


REGELN / 

Alles übet DFO / MX ven A-Z / 


Betriebssysteme Im Vergleich 


indlaoen/ Bauefffplningen 


ROGRAMMIER- UND MASCHINENSPRACHE 


SH 0021: ASSEMBLER 
UND BASIC 

Giga- Ass: Hypta- Ass hoch 2 / 
Paradoxon- Basic: 50000 Basic 
Bytes free 


SH 0007: PEEKS&POKES SH 0012: PROGRAM- 

• Maschinen- Power' mit Basic / MIERSPRACHEN 

Mi.asking. 2 Basic-Programme Pascal, Comal. Prolog. C und ForW 

lauten nebeneinander / Peeks und vergleich Basic- Compiler 


SH 0035: ASSEMBLER 

Abgeschlossene Kurie lür AnIJn- 



• 
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LISTINGS 


C64 


ln solch einem Fall lädt man einen Monitor und versucht, 
zu retten, was noch zu retten ist. Doch stimmen alle Zeiger, 
Zeilennummern und Sprünge jetzt noch? 

In allen diesen Fällen hilft das BKS. Laden Sie die Test¬ 
routine mit »LOAD "BKS 5.0 (49152)",8,1«. Danach geben 
Sie bitte »NEW« ein, um alle Zeiger richtig zu stellen. Keine 
Angst, das Maschinenprogramm wird dabei nicht gelöscht. 
Es kann jederzeit mit »SYS 49152« gestartet werden. Das 
Programm funktioniert natürlich nur, wenn sich ein Basic- 
Programm im Speicher befindet. Andernfalls wird eine ent¬ 
sprechende Meldung ausgegeben. 

Laden Sie nun also das zu testende Basic-Programm. 
Der Inhalt des Basic-Anfangszeigers (43/44) spielt keine 
Rolle. Starten Sie das BKS mit »SYS 49152«. Es erscheinen 
jetzt einige Fragen, die Sie mit <J> (Ja) oder <N> beant¬ 
worten. Zunächst werden Sie gefragt, ob Leerzeichen be¬ 
mängelt werden sollen. Manche Programmierer setzen in 
Basic-Programme viele Leerzeichen (Spaces), um sie 
übersichtlicher zu gestalten, andere verschmähen dies. 
Sollten Sie zu letzteren gehören, können Sie die Frage mit 
< J > beantworten; dann wird auch getestet, ob außerhalb 
von Anführungszeichen und DATAs überflüssige Spaces 
auftreten. Wenn in einem Programm allerdings zu viele 
Leerzeichen sind, besteht die Liste, die das BKS erzeugt, 
praktisch nur noch aus diesem Fehler und wird unüber¬ 
sichtlich. Schalten Sie die Überprüfung dann besser aus. 

Die nächste Frage hat eine ähnliche Funktion. Das BKS 
kann auf Wunsch Sprünge (RUN, GOTO, GOSUB, THEN) 
finden, die auf eine REM-Zeile oder eine Trennzeile weisen, 
das ist eine Zeile dieser Art: 

10 : 

Das kann problematisch werden, wenn das Programm 
mit einem »unintelligenten« REM-Killer bearbeitet wird. Ge¬ 
rade in einer Zeitschrift veröffentlichte Listings sollten sol¬ 
che Sprünge nicht enthalten, da der eine oder andere Le¬ 
ser die REM-Zeilen beim Abtippen wegläßt und nicht alle 
Sprünge findet, die zu korrigieren sind. 

Auch diese Fehlermeldung kann man »ausblenden«, 
wenn der Fehler allzu oft auftritt. 

Mit der folgenden Frage kann man gleich zwei Fehler auf 
einmal ausblenden: den Fehler Nummer 7, der angezeigt 
wird, wenn ein Sprungbefehl auf einen Strukturierbefehl 
zeigt, den man auch anstelle des Sprungbefehls hätte set¬ 
zen können. Beispiel: 

10 A = 4 : GOTO 20 
20 RETURN 

kann man auch einfacher so schreiben: 

10 A = 4 : RETURN 

Der zweite Fehler, der von diesem »Schalter« betroffen 
ist, ist der Fehler Nummer 17. Er wird gemeldet, wenn der 
Programmierer direkt hinter das Befehlswort »THEN« einen 
GOTO-Befehl gesetzt hat (anstelle »THEN GOTO 12« 
schreibt man kürzer »THEN 12«). Da beides Schönheitsfeh¬ 
ler sind, kann man deren Ausgabe zusammen ausblenden, 
indem die Frage mit <J> beantwortet wird. 

Die letzte der vier »Ausblendfragen« betrifft gleich drei 
Fehler: Wie Sie aus der Liste ersehen können, betreffen die 
Fehlernummern 12,13 und 14 Befehlswörter, die ein geüb¬ 
ter Programmierer nicht verwendet: LET, NEW und STOP. 
»LET« kann man sich sowieso sparen, »NEW« und »STOP« 
gehören nicht in ein gutes Basic-Programm. Falls der Be¬ 
diener des BKS anderer Meinung ist, kann er die Ausgabe 
der drei Fehlermeldungen unterdrücken, indem er die Fra¬ 
ge mit < N > beantwortet. 

Als nächstes werden Sie gefragt, ob die fehlerhaften Zei¬ 
len gelistet werden sollen oder ob die Ausgabe der Zeilen¬ 
nummer genügt. Beantworten Sie auch diese Frage wieder 
mit < J > oder < N >. Die letzte Frage dient dazu, festzule¬ 
gen, auf welches Gerät die Fehlerliste ausgegeben werden 


soll. Drücken Sie eine der Tasten <D>, <S> oder<F>: 
S: Die Fehlerliste wird auf dem Bildschirm ausgegeben. 
Dieser Modus ist vor allem bei sehr kurzen Programmen 
angebracht und zum Test, ob die ausblendbaren Fehler zu 
oft Vorkommen. 


Fehler-Nr. 

Bedeutung 

1(1) 

Direkt nach der Zeilennummer folgt ein Nullbyte (dies 
wird zum Listschutz verwendet). 

2(1) 

Im Programmtext kommt ein überflüssiges 

Leerzeichen vor. Nach DATA, in Anführungszeichen 
oder wenn diese Funktion abgeschaltet ist, werden 
Spaces nicht bemängelt. 

3(2) 

Ein Befehl THEN, GOTO, LIST, RUN oder GOSUB 
zeigt auf eine nicht existierende Zeile (UNDEF'D 
STATEMENT). 

4(2) 

Die hinter einem dieser Befehle stehende 

Zeilennummer ist größer als 63999. 

5(2) 

Die hinter einem dieser Befehle stehende 

Zeilennummer enthält verbotene Zeichen (etwa »GOTO 
4+6» oder »GOTO LABEL«). Gerade Pascal-gewohnte 
Programmierer werden diese Funktion des BKS zu 
schätzen wissen... 

6(2) 

Eine Basic-Zeile ist länger als 255 Zeichen. 

7(1) 

Ein GOTO- oder THEN-Befehl zeigt beispielsweise auf 
RETURN, GOTO oder RUN (Strukturierbefehl), den 
man einfach anstelle des Sprungbefehls hätte setzen 
können. 

8(1) 

Ein Sprungbefehl zeigt auf eine REM- oder Trennzeile 
(das ist eine Zeile, die nur einen Doppelpunkt enthält). 
Das kann zu Problemen beim Abtippen führen, wenn 
die REM-Zeile weggelassen wird. Falls in einem 

Listing dieser Fehler zu oft vorkommt, kann auch die 
Ausgabe dieses Fehlers abgeschaltet werden. 

9(2) 

in««»/ 

Eine Basic-Zeile ist länger als 255 Zeichen (Fehler der 
Hauptroutine). Wenn dieser Fehler auftritt, dürfen 
eventuelle sonstige Fehler nicht mehr unbedingt 
ernstgenommen werden, da dann das System 

»1« 

vollkommen durcheinandergerät. 

10(2) 

Ein GOTO- oder RUN-Befehl zeigt auf sich selbst 
(nicht hinter THEN). Beispiel: 

10 GOTO 10 

11 (2) 

Der Befehl CONT darf nicht im Programmtext 
Vorkommen. 

12(1) 

Der Befehl STOP sollte nicht im Programmtext 
Vorkommen. 

13(1) 

Der Befehl NEW sollte nicht im Programmtext 
Vorkommen. 

14(1) 

Der Befehl LET sollte nicht im Programmtext 

Vorkommen. 

15(1) 

Hinter einem REM-Befehl steht ein geshiftetes »L« 
(Listschutz). 

16(2) 

Ein illegales Token (Zeichen, Byte) kommt im 
Programmtext vor. 

17(1) 

Der Befehl GOTO sollte nicht direkt hinter THEN 
stehen, einer von beiden genügt. 

18(2) 

Hinter einem Befehl fehlt der Parameter (z.B. OPEN). 

19(2) 

Hinter GO fehlt TO. 

20(1) 

Hinter GOTO, RUN usw. folgen weitere Befehle, die 
niemals ausgeführt werden (z.B. »GOTO 20:PRINT 
"GEISTERBAHN"«) 

21 (2) 

Klammer(n) zu viel bzw. zu wenig. 

22(1) 

Das Zeichen »1« zur Potenzierung sollte vermieden 
werden (große Rechenungenauigkeit). 

23 (2) 

Der Befehl PRINT # wurde mit ?# abgekürzt 
(SYNTAX ERROR). 

24 (2) 

Falsche Reihenfolge der Basic-Zeilen. Das kann zu 
Problemen bei Sprungbefehlen führen. 

25 (2) 

Ein falscher Linkpointer kommt im Programmtext vor. 

(Vor jeder Basic-Zeile steht im Speicher ein Zeiger, der 
angibt, wo im Speicher die nächste Zeile beginnt. 

Anhand dieser Zeiger »hangeln« sich unter anderem 
die Sprungbefehle zur gesuchten Zeile.) 

26 (2) 

ON ohne legalen Sprungbefehl. 

27(2) 

THEN ohne IF. 

28 (1) 

Der Pointer 45/46 zeigt nicht genau auf das Byte hinter 
dem Basic-Programm. Wahrscheinlich ist noch ein 
Maschinenprogramm angehängt, oder es wurde ein 
fehlerhafter RENEW-Befehl verwendet. 


Tabelle 1. Die Fehlernummern des BKS und ihre Bedeutung 
(in Klammern der Härtecode, Parameter C) 
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C64 


LISTINGS 


D: Die Liste wird auf dem Drucker ausgegeben. Die Ge¬ 
räteadresse ist 4, die Sekundäradresse 0. Die Routine wur¬ 
de für Commodore-kompatible Drucker geschrieben, müß¬ 
te jedoch auch mit anderen Zusammenarbeiten. Diesen 
Ausgabemodus braucht man, wenn die Fehlerliste schrift¬ 
lich vorliegen soll. Da dieselbe Routine wie zur Bildschirm¬ 
ausgabe verwendet wird, ist die Ausgabe nicht breiter als 
40 Zeichen. 

F: Ausgabe erfolgt auf Diskette. Dabei wird auf der (ein¬ 
gelegten) Floppy ein Basic-Programm mit dem Namen er¬ 
zeugt, den Sie nun eingeben. Er beginnt gewöhnlich mit 
der Kennung »DOC.« für DOCument, diese kann durch Ein¬ 
gabe von <CRSR-links> jedoch überschrieben werden 
(Vorsicht: Den Cursor nicht weiter als auf das »D« bewe¬ 
gen!). Dieses File kann dann wie ein normales Basic-Pro¬ 
gramm geladen werden, ansehen können Sie sich die Aus¬ 
wertung durch Eingabe von LIST oder RUN (frei nach 
Wahl). Nach der Eingabe dieser Parameter geht das BKS 
das Basic-Programm nun Zeile für Zeile durch und über¬ 
prüft, ob es Fehler enthält. Bei jeder neuen Zeile wechselt 
der Bildschirmrahmen seine Farbe. So erkennen Sie, wenn 
die Überprüfung läuft, daß die Routine nicht abgestürzt ist 
(das BKS ist so programmiert, daß es nicht abstürzen 
kann). Am Ende des Tests werden alle Dateien geschlos¬ 
sen und das BKS beendet. 

Die Fehleranzeige des BKS 


Jedesmal, wenn ein Fehler auftritt, wird eine Zeile mit fol¬ 
gendem Format ausgegeben (auf Schirm, Drucker oder 
Diskette): 

AAA: BB[C] blablablabla 

AAA ist die Basic-Zeilennummer, in der der Fehler auf¬ 
tritt. Sie wird rechtsbündig ausgegeben. BB ist die laufende 
Nummer des Fehlers (siehe dazu die untenstehende Tabel¬ 
le 1). 

Es gibt zwei verschiedene Fehlergrade, die »C« angibt: 
leichte Fehler, die eigentlich nur Schönheitsfehler sind und 
keine Fehlfunktion des Programms bewirken (C=1). Bei¬ 
spiele für diese Fehler sind überflüssige Spaces, List¬ 
schutz, LET-Befehl. 

Anders ist es bei den schweren Fehlern (C=2): Hier wird 
sich das Programm mit einer Basic-Fehlermeldung verab¬ 
schieden. Beispiele: Sprungbefehle, die auf nicht vorhan¬ 
dene Zeilen zeigen, formal zerstörtes Programm (POKEs) 
oder Syntaxfehler. 

Der hier mit »blablablabla« bezeichnete Teil stellt einen 
Text dar, der ungefähr die Art des Fehlers angibt. Die mögli¬ 
chen Texte sind: »FORMATFEHLER«, »SPRUNGFEHLER«, 
»ÜBERFLÜSSIGER BEFEHL« und »UNERLAUBTER BE¬ 
FEHL«. 

Da dieser Text nicht genau die Art des Fehlers angibt, ist 
der Parameter BB besonders wichtig: Er kann 28 verschie¬ 
dene Werte annehmen. Tabelle 1 gibt eine Übersicht über 
die Fehlernummern. 

So funktioniert dos BKS 


Viele Leser werden sich jetzt die Frage stellen, wie das BKS 
funktioniert. Zu einer detaillierten Beschreibung reicht hier 
leider der Platz nicht. Der Autor (Adresse im Basic-Pro¬ 
gramm, das unten beschrieben wird) stellt auf Wunsch 
(Einsenden einer Diskette mit Rückporto) jedoch gerne den 
Quelltext zur Verfügung. Daher nur ein grober Überblick: 

Das Kontrollsystem geht das Basic-Programm Zeile für 
Zeile und Zeichen für Zeichen durch. Für die wichtigsten 


Stelle 

Inhalt 

0002-0003 

Temporär (u.a. Zeiger auf Programm) 

0334-0344 

Filename 

C000-CCDD 

Programm »BKS« 

C000-C002 

Sprung nach $C687 (Anfang) 

C003-C239 

Verschiedene Texte (gepackt) 

C23A-C23B 

Nummer der gesuchten Basic-Zeile für $C37C 

C23C 

Flag 

C23D 

Flag: Anführungszeichenmodus 

C23E 

Flag: REM 

C23F-C240 

Nummer der aktuellen Zeile 

C241 

Position in dieser Zeile 

C242 

Nummer des Fehlers 

C243-C246 

Integerzahlen für Multiplikation mit 10 

C247 

Aktuelles Token 

C248 

Aktuelle Zeigerposition 

C249 

Anzahl der Klammerebenen 

C24A 

Anzahl der Ziffern hinter Sprungbefehl 

C24B 

Flag: THEN 

C24C 

Flag: ON 

C24D 

Geräteadresse für Ausgabe (3, 4, 8) 

C24E 

Low-Byte der Anzahl der leichten Fehler 

C24F 

Low-Byte der Anzahl der schweren Fehler 

C250 

High-Byte der Anzahl der leichten Fehler 

C251 

High-Byte der Anzahl der schweren Fehler 

C252 

Flag: DATA 

C253 

Letzter Zustand von $C252 

C254 

Sekundäradresse für Ausgabe 

C255 

Hochkommaflag für Listroutine 

C256 

Flag: Basic-Zeilen listen 

C257 

Pointer für Listroutine 

C258 

»First«-Zeiger 

C259-C25A 

Letzte Fehlerzeilennummer 

C25B 

Temporär 

C25C 

Wie $C248 

C25D 

Flag: ON/Hochkomma 

C25E 

Wie SC248 

Stelle 

Inhalt 

C25F 

Letztes Zeichen 

C260-C27D 

Tokentabellen 

C27E-C2C1 

Texte der Fehler 

C2C2-C2F9 

Zeiger auf diese Texte 

C2FA-C315 

Härtecodes der Fehler (ASCII) 

C316-C37B 

Vorspann für erzeugtes Basic-Programm 

C37C-CCDD 

100% Maschinenprogramm 

Interessante Routinen: 

C37C 

Sucht die Zeile (X/Y) 

C4DE 

Entschlüsselt Text ab (A/Y) und gibt ihn aus 

C562 

Holt nächstes Zeichen aus Basic-Text 

C56F 

Holt Parameter 

C584 

Holt Tasten J/N 

C687 

Anfang des Hauptprogramms 

C6D9 

Schleife: Neue Basic-Zeile 

C710 

Hauptschleife: Nächstes Zeichen 

C77A 

Nächstes Zeichen 

CA0D 

REM-Routine 

CA19 

Unterroutinen zu SCACE 

CACE 

Gibt Fehlermeldung Nr. X aus 

CBE0 

fertig 

CC5D 

Holt Zahl hinter Sprungbefehl 

CE00-CEFF 

Puffer für Listroutine 

CF00-CFFF 

»Gommon-Bereich« (hier werden die Ergeb¬ 
nisse des BKS an »BKSWHAT« übergeben) 

CF00-CF04 

Erkbnnungstext »NSS88« 

CF05 

Versionsnummer primär (=5) 

CF06 

Versionsnummer sekundär (=0) 

CF07 

Flag: Fehler Nr. 2 ausgekoppelt (0=»ja«) 

CF08 

Flag: Fehler Nr. 8 ausgekoppelt (0=»ja«) 

CF09 

Identifikationsbyte (123 = BKS läuft, 222 = 

BKS fertig) 

CF0A 

Flag: Fehler Nr. 7/17 ausgekoppelt (0=»ja«) 

CF0B 

Flag: Fehler Nr. 12-14 ausgekoppelt (0=»ja«) 

CF0C-CF27 

Tabelle aller 28 Fehler (1=»tritt auf«) 


Tabelle 2. Speicherbelegung des BKS 
(Version 5.0, hexadezimal). Programmier-Profis werden 
diese Belegung verwenden, um das BKS für Ihre Zwecke 
mit eigenen Zusätzen auszustatten. 
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LISTINGS 


C64 


Befehle ist eine Routine vorhanden, die diese dann auf 
Fehlerhaftigkeit prüft. Im Falle eines Fehlers wird in eine 
Diagnoseroutine gesprungen, die zunächst prüft, ob der 
Fehler ausgeblendet ist oder angezeigt werden soll. Im 
letztgenannten Fall erfolgt die Ausgabe. 

Aufgrund dieser Verfahrensweise ist es leider nicht mög¬ 
lich, komplexere Fehler, wie »NEXT WITHOUT FOR« oder 
»RETURN WITHOUT GOSUB« festzustellen, dazu wäre 
Künstliche Intelligenz notwendig. Aus langer Testerfahrung 
kann aber gesagt werden, daß sich das BKS zum Erkennen 
aller üblichen Fehler sehr gut eignet. 

Nun noch zu einem »Zubehör« zum BKS, dem Basic-Pro- 
gramm »BKS.WHAT« (Listing 2). Wie Sie vielleicht schon be- 

Referenzliste 


merkt haben, gibt die Referenzliste, die das BKS erstellt, 
nicht besonders viel Auskunft über die Bedeutung von Feh¬ 
lern. Es wird immer nur ein Pauschaltext ausgegeben. Da¬ 
her gibt es dieses Zusatzprogramm, das die Liste kommen¬ 
tiert. Es wird wie folgt angewendet: Laden Sie wie anfangs 
beschrieben das BKS, dann das zu testende Programm. 
Führen Sie den Test durch, und lassen Sie sich die Refe¬ 
renz auf den Drucker (!) ausgeben. Danach laden Sie, ohne 
vorher den Computer auszuschalten, das Zusatzprogramm 
mit »LOAD "BKS.WHAT 5.0",8« und starten es mit RUN. 

Sofern vorher eine Auswertung mit dem BKS durchge¬ 
führt wurde, erscheint jetzt die Frage nach dem Datum und 
dem Namen des getesteten Basic-Programms. Alle ande¬ 


ren Angaben hat das BKS dem Kommentierprogramm be¬ 
reits übergeben (im »Common-Bereich«, siehe Speicher¬ 
belegung, Tabelle 2). Nach kurzer Zeit wird jetzt ein aus¬ 
führlicher Kommentar auf den Drucker ausgegeben, und 
zwar diesmal über die Sekundäradresse 7 (Groß-/Klein- 
schriftmodus). Darin enthalten ist eine kommentierte Liste 
ähnlich der auf Seite 29 abgedruckten, die Auskunft über 
die genaue Bedeutung der aufgetretenen Fehler gibt. Das 
Druckprogramm wurde für MPS-Drucker geschrieben und 
enthält einige Steuercodes dieser Drucker. 

Ich wünsche Ihnen viel Erfolg mit dem BKS! 

(Nikolaus Heusler/ef) 


Kurzinfo: Basic-Kontroll-System 


Programmart: Kontrollprogramm für Basic-Programme 
Laden: LOAD "BKS 5.0 (49152)",8,1 

Starten: Nach dem Laden des BKS unbedingt NEW eingeben. 
Anschließend laden Sie das Basic-Programm, das Sie überprüfen 
wollen. BKS wird anschließend mit SYS 49152 aktiviert. 
Besonderheiten: Fehlermeldungen werden wahlweise auf 
Bildschirm, Drucker oder Diskette ausgegeben. 

Zusatzprogramm: Mit dem Programm »BKS.WHAT 5.0« wird ein 
Kommentar der Fehlermeldungen ausgegeben. Bevor Sie dieses 
Programm anwenden, sollte ein Basic-Programm überprüft worden 
sein. Nach dem Test wird es, ohne den Computer auszuschalten, 
mit LOAD "BKS.WHAT 5.0",8 und mit RUN gestartet. Das 
Programm ist an MPS-Drucker angepaßt. 

Programmautor: Nikolaus Heusler 


Name 
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Direkt bestellen statt abtippen! 

Die aktuelle Diskette zum Heft: 


64'er-Sonderheft 40: 

Das Basic-Paket für 
Programmierer und 
Anwender 

Exbasic Level II: 

Ehemals kommerziell vertrieben, macht diese 
Basic-Erweiterung Ihren C64 zu einem Kraft¬ 
paket: über 70 neue leistungsfähige Befehle 
- eine professionelle Programmierhilfe. 

Basic-Kontroll-System: 

Machen Sie Schluß mit Syntaxfehlern und 
unsauberem Programmier-Stil in Ihren Basic- 
Programmen! Wie ein Detektiv spürt das 
Basic-Kontroll-System die häufigsten Pro¬ 
grammfehler auf und hebt so das Qualitäts¬ 
niveau Ihrer Software. 


board, mit dem Sie dem Computer phantasti¬ 
sche Klänge entlocken. 

Kreuzworträtsel : 

Mit diesem hervorragenden Programm wird 
es ein Kinderspiel, selbst schwierigste Kreuz¬ 
worträtsel zu erstellen. Die einfache Bedie¬ 
nung und die gelungene Druckausgabe der 
fertigen Rätsel bieten alle Voraussetzungen 
für viele Stunden Rätselspaß. 

Weiterhin befinden sich auf der Diskette alle 
Programme, die im Inhaltsverzeichnis des 
64'er-Sonderhefts 40 mit einem Disketten¬ 
symbol gekennzeichnet sind. 


Diskette für C64/C128 

Bestell-Nr. 15940 


Synthesizer: _ ^. 

Experimentieren Sie mit den Sound-Fähig- DM 29,90 
keiten Ihres C64: Die Tastatur wird zum Key- 


(sFr 24,90*/öS 299r-*) 

* Unverbindliche Preisempfehlung 



£4ai'ontlfta 

Wnr-onlln* 


Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 8012 Haar bei München, Telefon (089) 4613-0 







PROGRAMMSERVICE 


Sie suchen packende 
Spiele, hilfreiche Utilities 
und professionelle An¬ 
wendungen für Ihren 
Computer? Sie wünschen 
sich gute Software zu 
vernünftigen Preisen? 

Hier finden Sie beides! 
Unser stetig wachsendes 
Sortiment enthält interes¬ 
sante Listing-Software 
für alle gängigen 
Computertypen. Jeden 
Monat erweitert sich 
unser aktuelles Angebot 
um eine weitere interes¬ 
sante Programmsamm¬ 
lung für jeweils einen 
Computertyp. 

Wenn Sie Fragen zu den 
Programmen in unserem 
Angebot haben, rufen 
Sie uns an: 

Telefon (089) 4613-640 

Bestellungen bitte nur gegen 
Vorauskosse an: MarktÄtechnik 
Verlag AG, UnterneHmens- 
bereicn ßuchverlag, Hons-Pinsel- 
Straße 2, D-8013 Haar, 

Telefon (089) 4613-0. 

Schweiz: 

Markt &Tecbnik Vertriebs AG, 
Kollerstrosse 3, CH-6300 Zug, 
Telofon (042) 415656. 
Österreich: 

Microcompul-ique, E. Schiller, 

Easongasse 24, A-1030 Wien, 
Telefon (0222) 785661; 
Büchorzenlrum Meidling, 
Schönbrunner Straße 261, 
A-II20 Wien, 

Telefon (0222) 833196, 
Bestellungen aus anderen 
Ländern bltto nur schriftlich ont 
Markt fiTechnlk Vorlag AG, 

Abt. Buchvertriob, Hans-Pinsol- 
Stroßo 2, D-8013 Haar, und 
gogon Bezahlung dor Rochnung 
Im voraus, 

Bitte verwenden Sie für 
Ihre Bestellung und 
Überweisung die abge¬ 
druckte Postgiro- 
Zahlkarte, oder senden 
Sie uns einen 
Verrechnungs-Scheck mit 
Ihrer Bestellung. Sie 
erleichtern uns die 
Auftragsabwicklung, und 
dafür berechnen wir 
Ihnen keine Versand¬ 
kosten. 


64'er-Sonderheft 39: 

Das Komplett-Paket für professionelles 
DeskTop Publishing 

Giga-Publtsh: Ideal für \4treine oder Schülerzeitungen: Giga- 
Publish ist ein professionelles Desktop-Publishing-Programm der Spit¬ 
zenklasse. Gestalten Sie Ihre Texte und Grafiken zu einem perfekten 
layout. Acht Seiten mit zehn verschiedenen Zeichensätzen können 
Sie gleichzeitig bearbeiten. Mastertext: Dieses Textverarbeitungs¬ 
programm der Spitzenklasse bietet durch seine einfache Menüsteue¬ 
rung einen hohen Bedienungskomfort. Es ist die ideale Ergänzung für 
Giga-Publish. Master-Address: Adreßverwaltung, Serienbriefe, 
Adreßaufkleber und Etiketten sind die Domäne von Master-Address. 
Es ist optimal auf Mastertext abgestimmt und bildet mit diesem ein 
leistungsfähiges Software-Paket. Master-Spell: Nie wieder Tipp- 
und Flüchtigkeitsfehler: Eine automatische Rechtschreibprüfung ist für 
alle unentbehrlich, die mit Mastertext arbeiten. Hi-Eddi: Dieses kom¬ 
fortable und leistungsfähige Zeichen- und Konstruktionsprogramm 
macht es einfach, Grafiken mit Joystick oder Maus zu erstellen. Mit 
Mastertext und Hi-Eddi verfügen Sie über das ideale Gespann, 
Giga-Publish als DTP-Programm optimal zu nutzen. Weiterhin befin¬ 
den sich auf der Diskette alle Programme, die im Inhaltsverzeichnis 
des 64'er-Sonderhefts 39 mit einem Diskettensymbol gekennzeich¬ 
net sind. Diskette für C64/C128 

Bestell-Nr. 15939 DM 19,90* sFr 17,-*/öS 199,-* 

64 'er-Sonderh eft 38: 

Komplettes Einsteiger-Paket 
Diskette 1, Grafik total: 

Eine Auswahl faszinierender Bilder, die zeigen, welche grafischen 
Fähigkeiten im C64 stecken. Paint Magic: Ein tolles Grafikpro¬ 
gramm, mit dem Sie in kürzester Zeit wunderschöne farbige Grafiken 
und Bilder auf den Monitor zaubern. Alpha Drummer: Dieses 
Schlagzeug-Programm liefert 24 perfekte Sounds. Wer möchte, 
kann beliebige Rhythmen erzeugen oder eigene Sounds digitalisie¬ 
ren. Sounds zum Genießen: Entlocken Sie dem Sound-Chip Ihres 
C64 Musik, die Sie vom Hocker reißt. Von Klassik bis Pop - für jeden 
ist etwas dabei. 

Bestell-Nr. 15938 DM 19,90* sFr 17,-*/öS 19". 

Diskette 2 

Leichter lernen mit dem Computer: 

Jetzt ist der Frust beim öden Pauken vorbei. Vier Programme helfen 
dabei: Der »Vokabeltrainer« bringt mehr Spaß beim Englischlemen. 
Ein Übungsprogramm zum »Bruchrechnen« erleichtert Schülern, 
diese gefürchtete Hürde zu überwinden. »Lateinische Deklinatio¬ 
nen« greift auch bei dieser Fremdsprache unter die Arme »CAT« 
bringt den »Kleineren« die Grundrechenarten mit grafischer Unter¬ 
stützung näher. Springvogel: Helfen Sie dem Springvogel beim Eier¬ 
sammeln: ein Spiel für geschickte Hände. Mit dem eingebauten Edi¬ 
tor können Sie eigene Spielstufen erstellen und die Schwierigkeit 
Ihren Bedürfnissen anpassen. Pro-Disk: Mit dieser professionellen 
Disketterrverwaltung behalten Sie stets den Überblick über Ihre 
Programmsammlung. 

Bestell-Nr. 16938 DM 19,90* sFr 17,-*/öS 199,-* 


Aktiorapraii: Allo Programme, die Im InholSveraidinis den 64'or-Sond3rhel!es 38 
mit einem Cbkellensymbd gekennzefchnel sind (Inkl, der Programme aus Diskette 
I und 2) erholten Sie auf zwei Diskelton 
Zwei Diskalten für C64/C128 

Bestell-Nr, 17938 DM 29,90* sFr 24,90'/öS 299,-* 


64'er-Sonderheft 36: 

Programme für alle C 128-Besitzer 

Haushaltsbuch - die Finanzen im Griff: Bringen Sie Oidnung in Ihre 
Finanzen mit dem Haushaltsbuch für den C128. Durch die Kontrolle 
über Ihre Ausgaben und gezieltes Wirtschaften, bleibt Ihnen sicher 
noch etwas über für »die kleinen Annehmlichkeiten des lebens«. 
Professionelle Schachturnierverwaltung: Ein Profi-Programm, das 
schon bei mancher Schachmeisterschaft, so zum Beispiel den 15. 
Dortmunder Schachtagen, eingesetzt wuide. Bis zu 254 Spieler 
können nach dem »Schweizer System« verwaltet werden. Power 
128: Ein universelles Disketten-Tool, das den Eigenheiten der Floppy 
1571 angepaßt ist. Sie können das Directory beliebig manipulieren, 
sortieren und sich als Zugabe eine Sicherheitskopie des Directorys 
anlegen, die dem »Read Error 18 01« seine fatalen Folgen nimmt. 
Spiel-Spaß total - Super-Vectors: Vectors, dem Motorrad-Rennen 
aus dem Film »Tran« nachempfunden, erleben Sie hier In vollkommen 
neuen Grafik-Dimensionen. Die Bildschirmauflösung beträgt nun 
736x354 Punkte. Dies ist mehr als professionelle PCs mit einer 
Hercules-Grafikkarte darstellen können. Speziell für den C128D im 
Blechgehäuse mit 64 Kbyte Video-RAM und alle nachträglich auf¬ 
gerüsteten C128 wurde dieses Spiel umgeschrieben. Weiterhin 
befinden sich auf der Diskette alle Programme, die im Inhaltsver¬ 


zeichnis des 64'er-Sonderhefts 36 mit einem Diskettensymbol 

gekennzeichnet sind. Diskette für C64/C128 

Bestell-Nr. 15836 DM 29,90* sFr 24,90*/öS 299,-* 

64'er-Sonderheft 34: 

Aufbruch in die dritte Dimension! 

Fantastische Perspektiven: Ein Grafikprogiamm mit ganz neuen 
leistungsmerkmalen. Das Konstruieren von perspektivischen Grafi¬ 
ken, wie etwa ganzen Straßenzügen, wird zum Vergnügen. Ein 
Freezer für harte Fälle: Auf Knopfdruck wird der gesamte Speicher 
des C64 auf Diskette gespeichert und bei Bedarf wieder geladen. 
Se arbeiten an der gleichen Stelle weiter, als wäre nichts gesche¬ 
hen. Sicherheitskopien von kopiergeschützten Originaldisketten 
anfertigen, Spielstände bei hartnäckigen Games »einfrieren« und 
bei Bedarf wieder laden - all das sind Stärken des Freezers. 3D- 
Movie-Maker: Das Konstruieren von dreidimensionalen Körpern und 
deren fließende Bewegung am Bidschlrm zeichnet dieses Programm 
aus. Nach der Eingabe der Koordinaten für den Körper und seine 
Bewegung erzeugen Sie faszinierende Trickfilme in 3-D. Perfekte 
Simulation: Selten zuvor wurde so anschaulich gezeigt, wie eine 
Braunsche Röhre - Urahn aller Bildschirme und Monitore - funktio¬ 
niert. Per Tastendruck steuern Sie alle Parameter. Veränderungen des 
Elektronenstrahls werden in Echtzeit am Bildschirm angezeigt. Kur¬ 
vendiskussion perfekt: Ein Segen für alle, die sich mit Mathematik 
und vor allem der Kurvendiskussion beschäftigen. Nicht nur, daß 
jede Funktion am Bildschirm anschaulich dargestellt wird. Auch die 
Ableitungen, Nullstellen etc. werden sofort berechnet und ausgege¬ 
ben. Digital einfach: Ideol für den Einstieg in die Digital-Elektronik ist 
dieses Programm. Alle Grundfunktionen, wie AND-, OR-, EXOR- 
Gatter etc. werden am Bildschirm dargestellt und in ihren Funktionen 
simuliert. Weiterhin befinden sich auf der Diskette alle Programme, 
die im Inhaltsverzeichnis des 64'er-Sonderhefts 34 mit einem Disket¬ 
tensymbol gekennzeichnet sind. Diskette für C64/C128 
Bestell-Nr. 15834 DM 29,90* sFr 24,90*/öS 299,-* 

64'er-Sonderheft 29: 

Programme, die jeder C 128-Besitzer braucht 

Mastertext 128: Die Super-Textverarbeitung für den 80-Zeichen- 
Modus mit eingebauter Rechtschreibprüfung. Komfort und Funktions- 
Vielfalt weiden bei diesem Programm großgeschrieben. Alle Stan¬ 
dardbefehle der modernen Textverarbeitung, ein integrierter 
Taschenrechner und sogar der Datenaustausch per DFÜ sind enthal¬ 
ten. Als besonderen leckerbissen bietet Mostertext 128 eine Recht¬ 
schreibprüfung, deren Wörterbuch beliebig eiweiterbar ist. Tippfeh¬ 
ler gehören damit der Vergangenheit an! Der Hexer: Endlich ein lei¬ 
stungsstarkes Kopierprogramm für den C128. Kopieren Sie nach 
Herzenslust, der Hexer wird auch Ihre Disketten bezaubern. Neben 
ganzen Disketten sind mit diesem Programm auch einzelne Files zu 
kopieren. Der Bedienkomfort des Hexers ist kaum zu überbieten. 
Probleme mit den verschiedenen Veisionen des C128 kennt der 
Hexer nicht, es stehen verschiedene Veisionen »für alle Fälle« bereit. 
Besitzer des »Dolphin-DOS« können sich über eine Veision freuen, 
die mit diesem Floppy-Beschleuniger zusammenarbeitet. Unidat 
Pro: Der Wunsch jedes ernsthaften Computer-Anwenders ist eine 
leistungsfähige und komfortable Dateiverwaltung. Mit Unidat Pro 
wird dieser Wunsch Realität. Eistellen und verändern Sie eigene 
Datei-Masken. Hohe Zugriffegeschwindigkeit auf Ihre Daten, die 
Unterstützung von Paßwörtern zum Datenschutz und eine Export- 
Funktion zeichnen diese Dateiverwaltung aus. Die Suche nach 
einem Datensatz erfolgt blitzschnell. Mancomania: Spielen Sie 
gerne Wirtschaftsspiele? Wenn Ihnen diese Spielgattung gefällt, ist 
Mancomania das Richtige für Sie. Das Spielziel Ist allerdings ein 
wenig anders als bei den üblichen Vertretern dieses Genres: Ver¬ 
schleudern Sie Ihr Vermögen, so schnell Sie können. Vertreiben Sie 
sich die Zeit im Spiel-Casino, kaufen Sie Aktien an der Böise, und 
wetten Sie beim Autorennen. Denken Sie daran, das Geld muß weg. 
Aber das ist leichter gesagt als getan, als Millionär hat man's halt 
schwer! Diskette für CI28 

Bestell-Nr. 15829 DM 29,90* sFr 24,90*/öS 299,-* 
* Unverbindliche Preisempfehlung 


flhrinprvs- tlen Gutscheinen aus dem »Super- 
uu ge s». Software-Scheckheft« für DM 149,- können 
Sie sechs Software-Disketten Ihrer Wahl aus dem Programm- 
Service-Angebot der Zeitschriften 
PC Magazin Happy-Computer-Sonderheft Computer persönlich 

PC Magazin Plus Amiga-Magazin 64'er-Magazin 

Happy-Computer Amiga-Sondertieft 64’er-Sondertieft 

bestellen - egal, ob diese DM 29,90 oder DM 3430 kosten. 
Das Scheckheft können Sie per Verrechnungsscheck oder 
mit der eingehefteten Zahlkarte direkt beim Verlag bestellen. 
Kennwort: Software-Scheckheft, Bestell-Nr. 39100. 






C 64 


LISTINGS 


c3b0 

: 3b 

c2 

fO 

42 

aO 

01 

c8 

fO 

e8 

c3b8 

: 19 

bl 

02 

dO 

f9 

cO 

02 

dO 

94 

c3c0 

: 04 

aO 

06 

dO 

fl 

c8 

98 

18 

a8 

c3c8 

: 65 

02 

85 

02 

90 

o2 

e6 

03 

91 

c3d0 

: dO 

be 

a2 

02 

2c 

a2 

03 

8e 

e9 

c3d8 

: 3c 

c2 

68 

85 

03 

68 

85 

02 

ce 

c3e0 

: ad 

3a 

o2 

od 

3f 

c2 

dO 

Od 

7c 

c3e8 

: ad 

3b 

o2 

od 

40 

c2 

dO 

05 

04 

c3f0 

: a9 

05 

8d 

3c 

c2 

60 

c8 

bl 

bc 

o3f8 

: 02 

a2 

04 

c9 

8f 

fO 

d8 

c9 

fd 

c400 

: 3a 

fO 

Od 

a2 

07 

dd 

60 

c2 

bO 

c408 

: fO 

ob 

oa 

10 

f8 

e8 

fO 

c7 

bd 

o4l0 . 

: c8 

fO 

c4 

bl 

02 

fO 

cO 

c9 

f6 

c4l8 

: 20 

fO 

f5 

dO 

de 

c9 

8b 

dO 

34 

c420 

: 03 

ee 

4b 

c2 

o9 

ae 

dO 

Ob 

31 

c428 

: 98 

48 

a2 

16 

20 

ce 

ca 

68 

c4 

c430 

: a8 

a9 

ae 

o9 

83 

dO 

03 

ee 

3a 

c438 

: 52 

o2 

c9 

a7 

dO 

10 

ae 

4b 

31 

c440 

: c2 

dO 

Ob 

98 

48 

a2 

lb 

20 

86 

c448 

: ce 

oa 

68 

a8 

a9 

a7 

60 

a2 

49 

o450 

: 02 

4c 

c9 

ff 

20 

d2 

ff 

2c • 

de 

c458 

: a9 

00 

4o 

d2 

ff 

ad 

3f 

c2 

5f 

c460 

: 8d 

59 

c2 

ad 

40 

c2 

8d 

5a 

05 

c468 ; 

: c2 

c8 

bl 

02 

8d 

3f 

c2 

c8 

aa 

c470 : 

: bl 

02 

8d 

40 

c2 

ad 

58 

c2 

Oe 

c478 : 

: dO 

05 

ee 

58 

c2 

dO 

la 

ad 

08 

c480 : 

: 5a 

c2 

od 

40 

o2 

90 

12 

dO 

51 

c488 : 

: 08 

ad 

59 

c2 

cd 

3f 

c2 

90 

18 

c490 : 

: 08 

a2 

18 

2c 

a2 

19 

4o 

ce 

37 

c498 : 

: ca 

aO 

03 

c8 

fO 

04 

bl 

02 

86 

c4a0 : 

: dO 

f9 

cO 

04 

fO 

f5 

c8 

98 

30 

c4a8 : 

: 18 

65 

02 

8d 

5b 

c2 

a5 

03 

Od 

c4b0 : 

: 69 

00 

aO 

01 

dl 

02 

dO 

de 

8c 

c4b8 : 

: 88 

ad 

5b 

o2 

dl 

02 

dO 

d4 

60 

c4c0 : 

: 60 

ad 

41 

c2 

48 

20 

62 

c5 

3a 

c4c8 : 

: c9 

3a 

fO 

f9 

c9 

8f 

fO 

09 

18 

c4d0 : 

: c9 

83 

fO 

05 

a2 

14 

20 

ce 

20 

c4d8 : 

: ca 

68 

8d 

41 

o2 

60 

aa 

a5 

87 

c4e0 : 

: 02 

48 

a5 

03 

48 

86 

02 

84 

9a 

o4e8 : 

: 03 

aO 

00 

bl 

02 

fO 

33 

c9 

7a 

c4f0 : 

: 03 

fO 

2f 

c9 

la 

dO 

02 

a9 

f4 

c4f8 : 

: Od 

c9 

19 

dO 

la 

c8 

bl 

02 

fd 

c500 : 

aa 

c8 

bl 

02 

20 

d2 

ff 

ca 

e9 

c508 : 

dO 

fa 

18 

a9 

03 

65 

02 

85 

ff 

c510 : 

02 

90 

d6 

e6 

03 

dO 

d2 

20 

2f 

0518 : 

d2 

ff 

e6 

02 

dO 

ob 

e6 

03 

fl 

c520 : 

dO 

c7 

68 

85 

03 

68 

85 

02 

2c 

c528 : 

60 

48 

ad 

43 

c2 

Oa 

8d 

45 

bd 

c530 : 

c2 

ad 

44 

c2 

2a 

bO 

28 

8d 

16 

o538 : 

46 

c2 

a2 

03 

Oe 

43 

c2 

2e 

4b 

c540 : 

44 

c2 

bO 

lb 

oa 

dO 

f5 

ad 

db 

c548 : 

43 

c2 

18 

6d 

45 

c2 

8d 

43 

c7 

c550 : 

c2 

ad 

44 

o2 

6d 

46 

o2 

bO 

c8 

0558 : 

06 

8d 

44 

c2 

68 

18 

60 

68 

28 

c560 : 

38 

60 

ee 

4l 

c2 

ao 

4l 

c2 

c8 

c568 : 

bl 

02 

c9 

20 

fO 

f4 

60 

a9 

lc 

0570 : 

e7 

aO 

oO 

20 

de 

o4 

a9 

00 

96 

0578 : 

8d 

54 

o2 

20 

84 

c5 

8e 

07 

a3 

c580 : 

of 

4c 

50 

c6 

a9 

26 

aO 

cl 

34 

c588 : 

20 

de 

c4 

20 

e4 

ff 

a2 

00 

25 

c590 : 

o9 

4e 

fO 

06 

09 

4a 

dO 

f3 

97 

o598 : 

a2 

01 

20 

d2 

ff 

aO 

03 

20 

6e 

c5a0 : 

3f 

ab 

88 

10 

fa 

60 

a9 

32 

97 

c5a8 : 

aO 

Ol 

20 

de 

c4 

20 

e4 

ff 

ee 

c5b0 : 

c9 

53 

fO 

Oe 

c9 

46 

fO 

07 

cl 

c5b8 : 

o9 

44 

dO 

fl 

a2 

04 

2c 

a2 

56 

o5o0 : 

08 

2c 

a2 

03 

8e 

4d 

c2 

20 

86 

c5c8 : 

d2 

ff 

20 

d7 

aa 

eO 

08 

dO 

10 

c5d0 : 

3c 

a9 

61 

aO 

cl 

20 

de 

c4 

6f 

c5d8 : 

a2 

04 

86 

06 

8e 

54 

c2 

bd 

09 

c5e0 : 

6e 

cl 

9d 

77 

02 

ca 

10 

f7 

2 c 

o5e8 : 

a2 

00 

20 

of 

ff 

c9 

Od 

fO 

fl 

o5f0 : 

08 

9d 

34 

03 

e8 

eO 

10 

90 

2b 

c5f8 : 

fl 

aO 

00 

b9 

72 

cl 

9d 

34 

85 

o600 : 

03 

e8 

c8 

cO 

04 

90 

f4 

8a 

6f 


c608 : 

a2 

34 

aO 

03 

2c 

a9 

00 

20 

9d 

c6l0 : 

bd 

ff 

ae 

4d 

c2 

a9 

02 

ac 

fd 

c6l8 : 

54 

c2 

20 

ba 

ff 

20 

cO 

ff 

31 

c620 : 

20 

4f 

c4 

ae 

4d 

c2 

eO 

08 

6d 

c628 : 

dO 

19 

a9 

01 

20 

d2 

ff 

a9 

fb 

c630 : 

08 

20 

d2 

ff 

a2 

00 

bd 

16 

4a 

c638 : 

c3 

20 

d2 

ff 

e8 

eO 

66 

90 

10 

c640 : 

f5 

bO 

07 

a9 

cd 

aO 

cl 

20 

ad 

c648 : 

de 

c4 

20 

cc 

ff 

4c 

d7 

aa 

41 

c650 : 

a9 

04 

aO 

cl 

20 

de 

c4 

20 

a8 

c658 : 

84 

c5 

8e 

08 

cf 

a9 

fe 

aO 

eb 

c660 : 

cl 

20 

de 

c4 

20 

84 

c5 

8e 

de 

c668 : 

Oa 

cf 

a9 

19 

aO 

c2 

20 

de 

46 

c670 : 

c4 

20 

84 

c5 

8e 

Ob 

cf 

a9 

f2 

c678 : 

bO 

aO 

cl 

20 

de 

c4 

20 

84 

8a 

c680 : 

c5 

8e 

56 

c2 

4c 

a6 

c5 

20 

cc 

c688 : 

81 

ff 

a9 

03 

aO 

cO 

20 

de 

22 

c690 : 

c4 

20 

aO 

cc 

a9 

06 

8d 

20 

67 

c698 : 

dO 

8d 

21 

dO 

aO 

01 

bl 

2b 

cO 

c6aO : 

dO 

14 

a2 

04 

86 

c6 

bd 

cb 

dl 

c6a8 : 

cO 

9d 

77 

02 

ca 

10 

f7 

a9 

b5 

c6b0 : 

57 

aO 

cO 

4c 

de 

c4 

a9 

02 

dO 

c6b8 : 

20 

c3 

ff 

20 

6f 

c5 

a5 

2b 

dO 

c6c0 : 

85 

02 

a5 

2c 

85 

03 

a9 

00 

4c 

c6c8 : 

a2 

03 

9d 

4e 

c2 

ca 

10 

fa 

d6 

c6d0 : 

8d 

49 

c2 

8e 

03 

ce 

8d 

58 

12 

c6d8 : 

c2 

ee 

20 

dO 

ad 

49 

c2 

fO 

46 

c6e0 : 

Oa 

ad 

52 

c2 

dO 

05 

a2 

15 

98 

c6e8 : 

20 

ce 

ca 

aO 

01 

bl 

02 

dO 

7d 

c6f0 : 

03 

4c 

eO 

cb 

20 

5d 

c4 

a9 

le 

c6f8 : 

00 

8d 

4b 

c2 

8d 

3d 

c2 

8d 

d3 

c700 : 

3e 

c2 

8d 

49 

c2 

8d 

4c 

c2 

7b 

c708 : 

8d 

52 

c2 

a9 

04 

8d 

4l 

c2 

db 

c710 : 

ac 

41 

c2 

bl 

02 

dO 

la 

cO 

d4 

c718 : 

04 

dO 

09 

a2 

01 

20 

ce 

ca 

fd 

c720 : 

a9 

09 

dO 

e9 

c8 

98 

18 

65 

3c 

c728 : 

02 85 02 90 ac 

eC 

-3 

dO 

2f 

c730 : 

a8 

c9 

22 

dO 

10 

ad 

3d 

c2 

48 

c738 : 

49 

ff 

8d 

3d 

c2 

4c 

7a 

c7 

94 

c740 : 

a2 

09 

4c 

e7 

c7 

ae 

3d 

c2 

e 3 

c748 : 

dO 

30 

ae 

3e 

c2 

dO 

33 

c9 

b7 

c750 : 

a2 

dO 

04 

a2 

Od 

dO 

20 

c9 

lb 

c758 : 

9a 

dO 

04 

a2 

Ob 

dO 

18 

c9 

db 

c760 : 

20 

dO 

Oe 

a2 

02 

ad 

07 

cf 

Oa 

c768 : 

fO 

10 

ad 

52 

c2 

dO 

Ob 

fO 

d7 

c770 : 

06 

c9 

90 

dO 

10 

a2 

Oc 

20 

20 

c778 : 

ce 

ca 

ee 

4l 

c2 

fO 

cl 

4c 

e2 

c780 : 

10 

c7 

4c 

Od 

ca 

c9 

8f 

dO 

03 

c788 : 

le 

ee 

3e 

c2 

dO 

ec 

ad 

47 

bf 

c790 : 

c2 

o9 

8a 

fO 

Oc 

c9 

89 

fO 

Of 

c798 : 

08 

c9 

9b 

fO 

04 

c9 

a7 

dO 

59 

c7a0 : 

51 

20 

cl 

c4 

4c 

f2 

c7 

20 

c6 

c7a8 : 

ld 

c4 

a2 

04 

dd 

68 

c2 

fO 

5e 

c7b0 : 

05 

ca 

10 

f8 

30 

39 

8d 

47 

cf 

c7b8 : 

c2 

20 

5d 

cc 

ca 

fO 

cf 

ca 

84 

c7c0 : 

fO 

30 

ca 

fO 

Oa 

ad 

5c 

c2 

9e 

c7c8 : 

8d 

41 

c 2 

a2 

04 

dO 

18 

c9 

b5 

c7d0 : 

fc 

dO 

05 

ad 

4c 

c2 

dO 

la 

7e 

c7d8 : 

ad 

5c 

c2 

8d 

41 

c2 

a2 

05 

d4 

c7e0 : 

ad 

47 

c2 

c9 

a7 

fO 

03 

20 

69 

c7e8 : 

ce 

ca 

ac 

4l 

c2 

bl 

02 

4c 

c9 

c7f0 : 

67 

c8 

ae 

43 

c2 

ac 

44 

c 2 

f7 

c7f8 : 

cO 

fa 

bO 

c9 

20 

7c 

c3 

ad 

eb 

c800 : 

3c 

c2 

fO 

16 

c9 

01 

dO 

15 

ae 

c808 : 

a2 

03 

ad 

47 

c2 

c9 

9b 

fO 

4b 

c810 : 

09 

c9 

8a 

dO 

38 

ad 

4a 

c2 

5a 

c818 : 

dO 

33 

4c 

10 

c7 

c9 

02 

dO 

Ob 

c820 : 

04 

a2 

06 

dO 

28 

c9 

05 

dO 

97 

c828 : 

16 

a2 

Oa 

ad 

5c 

c2 

8d 

4l 

5c 

c830 : 

c2 

ad 

4b 

c2 

dO 

b4 

ad 

47 

ec 

c838 : 

c2 

c9 

9b 

fO 

ad 

dO 

a8 

c9 

7b 

c840 : 

03 

dO 

12 

ae 

4c 

c2 

dO 

d2 

c9 

c848 : 

a2 

07 

2c 

a2 

08 

ad 

5c 

c2 

b2 

c850 : 

8d 

4l 

c2 

dO 

92 

ad 

47 

c2 

82 

c858 : 

c9 

9b 

fO 

be 

c9 

8a 

dO 

eb 

Of 


c860 

: ad 

4a 

c2 

dO 

e6 

fO 

b3 

c9 

55 

c868 

: 88 

dO 

05 

a2 

Oe 

4c 

77 

c7 

9f 

c870 

: c9 

ff 

fO 

14 

c9 

cc 

90 

04 

45 

c878 

: a2 

10 

dO 

42 

c9 

80 

bO 

08 

12 

c880 

: c9 

60 

bO 

f4 

c9 

20 

90 

fO 

06 

c888 

: c9 

a7 

dO 

16 

ae 

4l 

c2 

20 

5c 

c890 

: 62 

c5 

8e 

4l 

c2 

c9 

89 

dO 

e3 

c898 

: 04 

a2 

11 

dO 

21 

ac 

41 

c2 

4e 

c8a0 

: bl 

02 

c9 

cb 

dO 

20 

ad 

4l 

85 

c8a8 

: c2 

8d 

48 

c2 

20 

62 

o5 

c9 

5b 

c8b0 

: a4 

fO 

Oe 

a2 

13 

2c 

a2 

12 

e5 

c8b8 

: ad 

48 

c2 

8d 

41 

c2 

4c 

77 

36 

c8c0 

: c7 

a9 

89 

4c 

b6 

c7 

o9 

cc 

b2 

c8c8 

: bO 

2c 

c9 

80 

90 

28 

c9 

a3 

c9 

c8d0 

: bO 

Oc 

a2 

10 

dd 

6d 

c 2 

fO 

67 

c8d8 

: 05 

ca 

10 

f8 

30 

18 

ad 

4l 

62 

c8e0 

: c2 

8d 

48 

c2 

20 

62 

c5 

c9 

93 

c8e8 

: 3a 

fO 

cb 

aa 

fO 

c8 

ac 

48 

7b 

c 8 f 0 

: c2 

8c 

41 

c2 

bl 

02 

c9 

28 

44 

c8f8 

: dO 

03 

ee 

49 

c2 

c9 

29 

dO 

ef 

c900 

: 03 

ce 

49 

c2 

c9 

3a 

dO 

21 

09 

c908 

: ae 

52 

c2 

8e 

53 

c2 

a2 

00 

38 

c910 

: 8e 

4c 

c2 

8e 

52 

c2 

ae 

49 

cf 

c918 

: c2 

fO 

Oe 

a2 

00 

8e 

49 

c2 

49 

c920 

: ae 

53 

c2 

dO 

04 

a2 

15 

dO 

8e 

c928 

: 95 

c9 

a6 

dO 

03 

ee 

49 

c2 

b8 

c930 

: c9 

a3 

dO 

03 

ee 

49 

c2 

c9 

37 

c938 

: 91 

dO 

03 

ee 

4c 

c2 

c9 

99 

05 

c940 

: dO 

la 

ad 

41 

c2 

8d 

48 

c2 

fO 

c948 

: 20 

62 

c5 

ac 

48 

c2 

8c 

4l 

fO 

c950 

: c2 

c9 

23 

dO 

04 

a2 

17 

dO 

2d 

c958 

: ce 

4c 

7a 

c7 

c9 

91 

dO 

f9 

44 

c960 

: a9 

00 

8d 

5d 

c2 

ad 

41 

c2 

3c 

c968 

: 8d 

5e 

c2 

20 

62 

c5 

aa 

dO 

7a 

c970 

: Od 

a2 

la 

20 

ce 

ca 

ad 

5e 

10 

c978 

: c2 

8d 

4l 

c2 

dO 

db 

c9 

22 

01 

c980 

: dO 

Ob 

ad 

5d 

c2 

49 

ff 

8d 

7e 

c988 

: 5d 

c2 

4c 

6b 

c9 

ae 

5d 

c 2 

d4 

c990 

: dO 

d9 

c9 

3a 

fO 

db 

c9 

89 

2f 

c998 

: fO 

04 

c9 

8d 

dO 

cd 

8d 

47 

ef 

c9a0 

: c2 

20 

5d 

cc 

ca 

fO 

16 

ca 

85 

c9a8 

: fO 

13 

ca 

fO 

04 

a2 

04 

dO 

fa 

c9b0 

: 06 

c9 

fc 

fO 

08 

a2 

05 

20 

e2 

c9b8 

: ce 

ca 

4c 

f7 

c9 

8d 

5f 

c2 

09 

c9c0 

: ae 

43 

c2 

ac 

44 

c2 

cO 

fa 

a9 

c9c8 

: bO 

e3 

20 

7c 

c3 

ad 

3c 

c2 

22 

c9d0 

: fO 

25 

c9 

01 

dO 

04 

a2 

03 

a3 

c9d8 

: dO 

dd 

c9 

02 

dO 

04 

a2 

06 

Od 

c9e0 

: dO 

d? 

c9 

05 

dO 

09 

a2 

Oa 

a2 

c9e8 

: ad 

4b 

c2 

dO 

Oa 

fO 

c8 

c9 

e4 

c9f0 

: 03 

fO 

04 

a2 

08 

dO 

cO 

ad 

26 

c9f8 

: 5f 

c2 

fO 

Oe 

c9 

fc 

fO 

al 

42 

caOO 

: ad 

47 

c2 

c9 

8d 

fO 

03 

20 

e7 

ca08 

: cl 

c4 

4c 

76 

c9 

o9 

cc 

dO 

cd 

calO 

: 05 

a2 

Of 

4c 

77 

c7 

4c 

7a 

90 

cal8 

: c7 

ae 

3f 

c2 

ad 

40 

c2 

20 

87 

ca20 

: 96 

ca 

a9 

3a 

20 

d2 

ff 

20 

a6 

ca28 

: 3f 

ab 

ae 

42 

c 2 

a9 

00 

20 

ea 

ca30 

: cl 

ca 

ad 

01 

01 

dO 

10 

ad 

14 

ca38 

: 00 

01 

8d 

01 

01 

a9 

00 

8d 

b5 

ca40 

: 02 

01 

a9 

20 

8d 

00 

01 

20 

4e 

ca48 

: Oc 

bf 

20 

de 

c4 

a9 

5b 

20 

5f 

ca50 

: d2 

ff 

ae 

42 

c2 

bd 

f9 

c 2 

9d 

ca58 

: 20 

d2 

ff 

20 

89 

ca 

a9 

5d 

35 

ca60 

: 20 

d2 

ff 

20 

3f 

ab 

ae 

42 

7e 

ca68 

: c2 

ca 

8a 

Oa 

aa 

bd 

c3 

c2 

aO 

ca70 

: a8 

bd 

c2 

c2 

20 

de 

c4 

ae 

69 

ca78 

: 4d 

c2 

eO 

08 

fO 

03 

20 

d7 

b7 

ca80 

: aa 

a9 

00 

20 

d2 

ff 

4c 

cc 

fb 
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LISTINGS 


C64 


oa88 

: ff 

38 

e9 

31 

aa 

fe 

4e 

c2 

a5 

cb58 

: 4d 

c2 

c9 

08 

dO 

26 

20 

12 

5d 

cc28 

: c4 ae 

4f 

c2 

ad 

51 

c2 

20 

20 

ca90 

: dO 

03 

fe 

50 

c2 

60 

20 

cl 

df 

cb 60 

: cb 

20 

78 

cb 

aO 

03 

c8 

fO 

fa 

cc30 

: cd bd 

20 

3e 

cc 

20 

58 

c4 

64 

ca98 

: ca 

a2 

00 

bd 

00 

01 

fO 

03 

3d 

cb68 

: 09 

b9 

00 

ce 

20 

d2 

ff 

aa 

16 

cc38 

: 20 54 

c4 

4c 

cc 

ff 

20 

58 

3b 

caaO 

: e8 

dO 

f8 

eO 

05 

bO 

14 

aO 

b2 

cb70 

: dO 

f4 

cO 

04 

90 

fO 

bO 

3a 

33 

cc40 

: c4 ae 

4d 

c2 

eO 

08 

fO 

03 

lf 

oaa8 

: 05 

bd 

00 

01 

99 

00 

01 

88 

5b 

cb78 

: ae 

02 

ce 

ad 

03 

ce 

20 

96 

e5 

cc48 

: 4c d7 

aa 

a9 

01 

20 

54 

c4 

4c 

cabO 

: ca 

10 

f6 

a9 

20 

99 

00 

01 

46 

cb80 

: ca 

4c 

3f 

ab 

20 

78 

cb 

aO 

ec 

cc50 

: a9 02 

20 

d2 

ff 

20 

58 

c4 

49 

cab8 

: 88 

10 

fa 

20 

Oc 

bf 

4c 

de 

b9 

cb88 

: 03 

8c 

55 

c2 

8c 

57 

c2 

a9 

61 

cc58 

: a9 14 

4c 

54 

c4 

a9 

00 

8d 

5e 

oacO 

: c4 

85 

62 

86 

63 

a2 

90 

38 

ae 

cb90 

: 00 

ac 

57 

c 2 

29 

7f 

20 

d2 

c9 

cc60 

: 43 c2 

8d 

44 

c2 

8d 

4a 

c2 

37 

oac8 

: 20 

49 

bo 

4c 

df 

bd 

eO 

08 

c5 

cb98 

: ff 

c9 

22 

dO 

08 

ad 

55 

c2 

e7 

cc68 

: ad 41 

c2 

8d 

5c 

c2 

20 

62 

39 

cadO 

: dO 

06 

ad 

08 

cf 

dO 

01 

60 

58 

cbaO 

: 49 

ff 

8d 

55 

c2 

c8 

b9 

00 

50 

cc70 

: c5‘c9 

3a 

fO 

22 

aa 

fO 

22 

46 

cad8 

: eO 

07 

dO 

05 

ad 

Oa 

cf 

fO 

5d 

cba8 

: ce 

dO 

Oa 

cO 

04 

fO 

06 

20 

99 

cc78 

: 38 e9 

30 

c9 

Oa 

bO 

le 

ee 

67 

oaeO 

: f6 

eO 

11 

dO 

05 

ad 

Oa 

cf 

2a 

cbbO 

: d7 

aa 

4c 

CC 

ff 

aa 

10 

de 

de 

cc80 

: 4a c2 

20 

29 

c5 

bO 

Od 

6d 

49 

cae8 

: fO 

ed 

eO 

Oc 

90 

09 

eO 

Of 

7b 

cbb8 

: c9 

ff 

fO 

da 

2c 

55 

c2 

30 

fl 

cc88 

: 43 c2 

8d 

43 

c2 

90 

d9 

ee 

ee 

cafO 

: bO 

05 

ad 

Ob 

cf 

fO 

eO 

a9 

4b 

cbcO 

: d5 

38 

e9 

7f 

aa 

8c 

57 

c2 

Oe 

cc90 

: 44 c2 

dO 

d4 

a2 

04 

60 

a2 

15 

caf8 

: 01 

9d 

Ob 

cf 

8e 

42 

c2 

20 

cb 

cbc8 

: aO 

ff 

ca 

fO 

08 

c8 

b9 

9e 

23 

cc98 

: 01 60 

a2 

02 

60 

a2 

03 

60 

9a 

cbOO 

: 22 

ob 

20 

4f 

c4 

ae 

4d 

c2 

76 

cbdO 

: aO 

10 

fa 

30 

f5 

c8 

b9 

9e 

07 

ccaO 

: a2 04 

bd 

f9 

cl 

9d 

00 

cf 

9b 

cb08 

: eO 

08 

dO 

03 

20 

12 

cb 

4c 

db 

cbd8 

: aO 

30 

b6 

20 

d2 

ff 

90 

f5 

9d 

cca8 

: ca 10 

f7 

a9 

05 

8d 

05 

cf 

le 

cblO 

: 19 

ca 

a9 

01 

20 

54 

c4 

20 

11 

cbeO 

: 20 

c5 

CC 

ad 

21 

dO 

8d 

20 

db 

ccbO 

: a9 00 

8d 

06 

cf 

a9 

7b 

8d 

dl 

ob 18 

: d2 

ff 

20 

58 

c4 

a9 

14 

4c 

7f 

cbe8 

: dO 

20 

f6 

cb 

a9 

de 

8d 

09 

d9 

ceb8 

: 09 cf 

a9 

00 

a2 

lb 

9d 

Oc 

a5 

cb20 

: 54 

c4 

ad 

56 

c2 

dO 

01 

60 

84 

cbfO 

: cf 

a9 

02 

4c 

c3 

ff 

20 

4d 

f5 

cccO 

: cf ca 

10 

fa 

60 

a5 

02 

18 

c3 

ob28 

: ad 

02 

ce 

cd 

3f 

c2 

dO 

09 

a3 

cbf8 

: cb 

20 

4f 

c4 

20 

41 

CC 

20 

bf 

ccc8 

: 69 02 

90 

02 

e6 

03 

c5 

2d 

8f 

ob30 

: ad 

03 

ce 

cd 

40 

c2 

dO 

01 

2b 

ccOO 

: 3e 

cc 

a9 

76 

aO 

cl 

20 

de 

34 

ccdO 

: dO 07 

a5 

03 

c5 

2e 

dO 

01 

01 

cb38 

: 60 

20 

4d 

cb 

aO 

ff 

c8 

fO 

84 

cc08 

: c4 

20 

3e 

cc 

20 

3e 

CC 

a9 

80 

ccd8 

: 60 a2 

lc 

4c 

ce 

ca 

00 

00 

5d 

cb40 

: 07 

bl 

02 

99 

00 

ce 

dO 

f6 

7b 

cclO 

: 88 

aO 

cl 

20 

de 

c4 

ae 

4e 

c8 










cb48 

: cO 

04 

90 

f2 

60 

ae 

03 

ce 

b2 

ccl8 

: c2 

ad 

50 

c2 

20 

cd 

bd 

20 

c5 










cb50 

: e8 

dO 

01 

60 

20 

4f 

c4 

ad 

d8 

cc20 

: 3e 

cc 

a9 

9c 

aO 

cl 

20 

de 

19 

Listing 1. »BKS« 

(Schluß) 





0 AF=2S:GOSUB 1000:REM VERSION 7 - GANZ ST 


25 PRINT#4,"<4SPACE>-"XS; 

<054> 

ARK VERBESSERT 

<040> 

26 PRINT#4,"{4SPACEJ£ BASIC PROGRAMMZEILEN 


1 DIM Aä(AF):GOSUB 200:OPEN 4,4:XS="{CTRL- 


NUMMER 

<212> 

H>"+CHR*<13>+"{CTRL-OJ <002>Q 

27 PR."T#4 

<030> 

2 PRINT#4,"{CTRL—N >- 


28 PRINT#4,"VERZEICHNIS DER VORKOMMENDEN F 


-{CTRL—0>— 

<152> 

EHLERCODES MIT BEDEUTUNG: 

< 120> 

3 PRINT#4,“{CTRL—NIBASIC KONTROLL SYSTEM{3 


30 PRINT#4, "TTTTTTTTTTTTTTTTTTtTTTTTTTiTtT 


SPACEIERKLAERUNGEN{SPACE,CTRL-0 >V7 

< 119> 

T T T I I 11 r T T T I I T I TTT'T I T'T'TT 

<093> 

4 PRINT#4,"{CTRL—N>- 


40 FOR 1=1 TO AF:IF PEEK(53003+1)=.THEN 60 

<002> 

-{CTRL—0>— 

< 154> 

50 PRINT#4,A*(I> 

<215> 

5 PRINT#4,"OBIGE TABELLE GIBT AUSKUNFT UEB 


60 NEXT 

<070> 

ER ALLE LEICHTEN UND SCHWEREN FEHLER, 

<012> 

80 PRINT#4:PRINT#4,"(C) NH-201187-ARR REV7 

<029> 

6 PRINT#4,"DIE IM GETESTETEN BASIC-PRQGRAM 


99 CLOSE 4:END 

<057> 

M AUFGETRETEN SIND. 

<233> 

100 IF PEEK(53000)THEN 110 

< 106> 

7 PRINT#4:PRINT#4,"BASIC-PROGRAMM{12SPACE} 


101 PRINT#4,"DER FEHLER NR. 8 (SPRUNG AUF 


r “N* 

< 177> 

REM- ODER TRENNZEILE) 

<099> 

8 PRINT#4,"TESTDATUM{17SPACE>: "D* 

< 119> 

102 PRINT#4,"WURDE NICHT GELISTET, DA ER Z 


9 PRINT#4,"VERSION DES TESTPROGRAMMES: "V* 

<070> 

U HAEUFIG AUFTRAT.":PRINT#4 

<145> 

10 PRINT#4:IF PEEK(52999)THEN 13 

<151 > 

110 IF PEEK(53002)THEN 120 

< 152> 

11 PRINT#4,"DER FEHLER NR. 2 (UEBERFLUESSI 


111 PRINT#4,"DIE FEHLER NR. 7 (GOTO -> STR 


GE LEERZEICHEN IM PROGRAMMTEXT) 

<004> 

UKTUR) UND NR. 17 (THEN GOTO) 

<231 > 

12 PRINT#4,"WURDE NICHT GELISTET, DA ER ZU 


112 PRINT#4,"WURDEN NICHT GELISTET, DA SIE 


HAEUFIG AUFTRAT.":PRINT #4 

<055> 

ZU HAEUFIG AUFTRATEN.”:PRINT#4 

<237> 

13 RQ*=" RUNTIME-KQNSEQUENZEN"+X$ 

<166> 

120 IF PEEK(53003)THEN 130 

< 196> 

14 GOSUB 100:PRINT#4,"ERKLAERUNG DER FEHLE 


121 PRINT#4,“DIE FEHLER NR. 12, 13 UND 14 


R: 

<212> 

WURDEN NICHT GELISTET. 

<005> 

15 PRINT#4, "TTTTTrrrrtTlTrrfTTTTT": PRINT#4 


122 PRINT#4 

< 125> 

."BEISPIEL: 

<035> 

130 RETURN 

< 1B8> 

16 PRINT#4,"<2SPACE>2720: 17C13 UEBERFLUES 


200 FOR 1=1 TO AF:B*="" 

<013> 

SIGER BEFEHL 

<022> 

202 READ A*:IF A*="@"THEN 210 

<122> 

17 PRINT# 4,"{4SPACE}T{3SPACE> T{2SPACE J T{2S 


204 B*=B*+A*+CHR*<13>:GOTO 202 

<249> 

PACEif'X*; 

<237> 

210 A*(I)=LEFT*(B*,LEN(B$)-1>:NEXT:RETURN 

<190> 

18 PRINTS4,"{4SPACE} = <3SPACE} = {2SPACE> = {2S 


1000 FOR 1=52992 TO 52996:A*=A*+CHR*(PEEK( 


PACEli ART DES FEHLERS (PAUSCHALTEXT)"X 


I)>:NEXT:IF A*< >"NSSBB"THEN 1100 

< 160> 

*: 

< 183> 

1001 IF PEEK(53001)=123 THEN 1102 

<230> 

19 PRINT#4,"{4SPACE> = {3SPACE> = {2SPACE>-" X* 


1002 IF PEEK(53001)0222 THEN 1100 

< 106> 

! 

<215> 

1003 FOR I=.TO AF-1:A=A+PEEK(1+53004):NEXT 


20 PRINT#4,"{4SPACE}^{3SPACE> = {2SPACE>i FE 


:IF A=.THEN 1104 

<054> 

HLERGRAD: 1 = LEICHTER FEHLER OHNE"RQ*; 

<242> 

1004 INPUT"{CLR >DATUM{3SPACE > X X.X X.19XX<12 


21 PRINT#4,"{4SPACEI—{3SPACEI—{16SPACEI2 = 


LEFT>";D* 

<204> 

SCHWERER FEHLER, WIRD FEHLERMELDUNG"X* 


1005 INPUT"NAME PROGRAMM{3SPACEJX{3LEFT>"; 


5 

<051 > 

N* 

<239> 

22 PRINT#4,”{4SPACE>-(3SPACE> = <20SPACE>VER 


1006 V*=CHRS(48+PEEK(52997)>+"."+CHR*(4B+P 


URSACHEN"X*; 

<202> 

EEK(52998)) 

<165> 

23 PRINT#4,"(4SPACE>3<3SPACE>-"Xf; 

< 192> 

1007 IF V*O"5.0"THEN 1106 

< 166> 

24 PRINT#4,"{4SPACE>-{3SPACE>ä FEHLERCODEN 


1008 RETURN 

<048> 

UMMER (SIEHE UNTEN)"X*; 

<005> 

1100 PRINT"{CLR>BITTE ERSTELLEN SIE ERST E 
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LISTINGS 


INE LISTE MIT DEM BKS (VERS. >= 5.0)" 
sEND <00B> 

1102 PRINT"CCLRIBITTE UNTERBRECHEN SIE DftS 

BKS PROGRAMM NICHT !":END <0S2> 

1104 PRINT"ICLRIDAS TESTPROGRAMM ENTHIELT 

KEINE FEHLER !":END <175> 

1106 PRINT"CCLR1FALSCHE VERSIONSNUMMER ! <100> 

2000 DATA 1 = DIREKT NACH DER ZEILENNUMMER 
FOLGT EIN NULLBYTE (DIES WIRD ZU LIS 
T- <09B> 

2002 DATA"C4SPACE1SCHUTZZWECKEN VERWENDET) 

<146> 

2004 DATA 2 = IM PROGRAMMTEXT KOMMT EIN UE 

BERFLUESSIGES LEERZEICHEN VOR,© <216> 

2006 DATA"3 = EIN THEN, GOTO, LIST ETC. BE 
FEHL ZEIGT AUF EINE NICHT EXISTIEREND 
E <138> 

2008 DATA"I4SPACE>ZEILE",@ <005> 

2010 DATA 4 = DIE ZEILENNUMMER ALS PARAMET 

ER IST GROESSER ALS 63999,0 <120> 

2012 DATA 5 = DIE ZEILENNUMMER ALS PARAMET 
ER ENTHAELT FALSCHE ZEICHEN (BEISPIEL 
S- <124> 

2014 DATA"C4SPACE>WEISE GOTO 4+6)<083> 
2016 DATA 6 = EINE BASIC ZEILE IST LAENGER 

ALS 255 ZEICHEN,0 <102> 


201B DATA"7 = EIN GOTO ODER THEN BEFEHL ZE 
IGT AUF EINEN BEFEHL WIE RETURN, GOTO 
, <144> 

2020 DATA"C4SPACEIEND USW., DEN MAN AUCH E 
INFACH ANSTELLE DES SPRUNGBEFEHLES HA 
ETTE <029> 

2022 DATA"I4SPACEISETZEN KOENNEN",0 <0B0> 

2024 DATA 8 = EIN SPRUNGBEFEHL ZEIGT AUF E 
INE REM- ODER TRENNZEILE. DIES KANN Z 
U <246>^i 

2026 DATA"C4SPACETPROBLEMEN BEIM ABTIPPEN 
FUEHREN, WENN DIE ANGESPRUNGENE ZEILE 
WEG- <2364 

2028 DATA“ I4SPACEJGELASSEN WIRD.",@ -<224> 

2030 DATA 9 = EINE BASIC ZEILE IST LAENGER 
ALS 255 ZEICHEN,© 

2032 DATA 10= EIN SPRUNGBEFEHL ZEIGT AUF S 

ICH SELBST (Z.B. 10 GOTO 10),0 <209> 

2034 DATA 11= DER BEFEHL ' CONT' DARF NICHT 

IM PROGRAMMTEXT VORKOMMEN,0 <084> 

2036 DATA 12= DER BEFEHL 'STOP' SOLLTE NIC 

HT IM PROGRAMMTEXT VORKOMMEN,© <223> 

2038 DATA 13= DER BEFEHL ‘NEW SOLLTE NICH 

T IM PROGRAMMTEXT VORKOMMEN,© <111> 

2040 DATA 14= DER BEFEHL 'LET' SOLLTE NICH 

T IM PROGRAMMTEXT VORKOMMEN,© <115> 

2042 DATA 15= HINTER EINEM REM-BEFEHL STEH 

T EIN GESHIFTETES L (LISTSCHUTZ),© <228> 


2044 DATA 16= EIN ILLEGALES TOKEN KOMMT IM 

PROGRAMMTEXT VOR,© <058> 

2046 DATA"17= DER BEFEHL 'GOTO- SOLLTE NIC 

HT DIREKT HINTER 'THEN' STEHEN, EINER <06B> 
2048 DATA"C4SPACE>VON BEIDEN GENUEGT",© <220> 
2050 DATA 18= HINTER EINEM BEFEHL FEHLT DE 

R PARAMETER,© <043> 

2052 DATA 19= HINTER GO FEHLT TO,@ .<036> 

2054 DATA"20= HINTER GOTO, RUN ETC. FOLGEN 

WEITERE BEFEHLE, DIE NIEMALS AUSGE— <079> 

2056 DATA"I4SPACEIFUEHRT WERDEN",© <219> 

2058 DATA 21= EINE ODER MEHRERE KLAMMERN Z 

U VIEL ODER ZU WENIG,© <206> 

2060 DATA 22= DAS ZEICHEN f ZUR POTENZIE 

RUNG SOLLTE VERMIEDEN WERDEN,© <000> 

2062 DATA 23= DER BEFEHL 'PRINT#' WURDE MI 

T ?# ABGEKUERZT,© <079> 

2064 DATA 24= FALSCHE REIHENFOLGE DER BASI 

C—ZEILEN,© <010> 

2066 DATA 25= EIN FALSCHER LINKPOINTER KOM 

MT VOR,© <196> 

2068 DATA 26= ON OHNE LEGALEN SPRUNGBEFEHL 

<050> 

2070 DATA 27= THEN OHNE IF,@ <037> 

2072 DATA 28= DER POINTER 45/46 ZEIGT NICH 

T GENAU AUF DAS ENDE DES BASIC-PRO- <161> 
2074 DATA"<4SPACEIGRAMMES", © <252 > 


2100 

2102 

REM 

********************** 

<044 > 

< 127> 

2103 

REM 

* 


* 

< 120> 

2104 

REM 

* 

FRAGEN ? 

* 

< 166> 

2106 

REM 

* 

NIKOLAUS HEUSLER 

* 

<182> 

2108 

REM 

* 

ZWENGAUERWEG 18 

* 

< 118> 

2110 

REM 

* 

8000 MUENCHEN 71 

* 

<254> 

2112 

REM 

* 

TEL. 089/792940 

* 

<241> 

2114 

REM 

* 


* 

< 131 > 

2116 

REM 

* 

REVISED 151287 /NH 

* 

<051 > 

2117 

REM 

* 

REVISED 070188 /NH 

* 

<237> 

2118 

REM 

* 


* 

< 135 > 

2120 

REM 

* 

(C)OPYRIGHT 

* 

< 254 > 

m 

REM 

* 

NIG SOFTWARE SER¬ 

* 

< 156> 

.'EM 

* 

VICE (NSS), 

* 

< 054 > 

2124 

REM 

* 

NH-201187—ARR 

* 

<138> 

2125 

RFM 

* 


* 

< 142> 

2126 

REM 

* 

RELEASED FOR 64'ER 

* 

<084 5 

2127 

REM 

* 

LELI-TEST (RS) 

* 

<153> 

2128 

REM 

* 


* 

<145> 

2130 

REM 

********************** 

<155> 

Listing 2. 

»BKS.WHAT 5.0« 




bringt Klarheit in die Fehlermeldungen des BKS. 
Bitte mit dem Checksummer (Seite 159) eingeben. 



Fehler- 

teufelchen 


Haushalt, Sonderheft 36, Seite 
14: 

Wenn Sie die Fehlermeldung 
abfangen wollen, die nach Aufruf 
des Taschenrechners bei der Divi¬ 
sion durch Null erzeugt wird, korri¬ 
gieren Sie die Zeile 5170 des Li- 
stings: 

5170 IFEI(I)=0THENR0=2: 
EISEIFR02THENRE=E1( I-l) /El( I) 
»FLfEl(O) 

Arbeiten Sie im 80-Zeichen-Mo- 
dus, ergänzen Sie bitte Zeile 6830 
wie folgt: 

6830 C0L0RB,F,H:IFR- 
WIND0W(2)=80THENCOLOR(B=0)* 
(-6),F:ELSE6840 

Hi-Eddl, Sonderheft 39, Seite 
104: 

Ins Listing 1 »HI-EDDI/1351 
MAUS- hat sich leider ein Fehler 


eingeschlichen. Die Zeile 60 lautet 
korrekt: 

60 IF A-3 THEN 150 

MSE, Sonderheft 38 und Sonder¬ 
heft 39, Seite 160: 

Wenn Sie die Zeile 230 so abtip¬ 
pen, wie sie im Sonderheft abge¬ 
druckt ist, erhalten Sie als Mel¬ 
dung »Syntax Error«; auch dann, 
wenn Sie die Zelle völlig korrekt 
eingegeben haben. Der Grund da¬ 
für liegt darin, daß der letzte Buch¬ 
stabe des Befehls END in die dritte 
Zeile rutscht. Da der C 64 eine Pro¬ 
grammzeile über maximal zwei 
Zeilen akzeptiert, versucht er, das 
»D« als Befehl zu deuten. Einen 
solchen Befehl gibt es aber nicht, 
also beschwert sich der Computer 
mit der Fehlermeldung. 

Die Behebung dieses Fehlers ist 
sehr einfach: Die erste Möglichkeit 


besteht darin, alle Leerzeichen 
zwischen den Befehlen nicht ein¬ 
zugeben. Für die Prüfsumme des 
Checksummers werden Leerzei¬ 
chen ohnehin nicht beachtet. Eine 
zweite Möglichkeit besteht darin, 
Befehle als Abkürzungen einzuge¬ 
ben. Im Handbuch zum C64 fin¬ 
den Sie eine Übersicht, welche Be¬ 
fehle Sie abgekürzt eingeben kön¬ 
nen. Beispiel: Statt PRINT geben 
Sie bei der Eingabe einer Zeile das 
Fragezeichen »?« ein. Wenn Sie 
nach Beenden der Eingabe die 
entsprechende Zeile listen lassen, 
steht für das Fragezeichen wieder 
der ausgeschriebene Befehl. 

Finden Sie in einem Listing eine 
Programmzeile, die sich über mehr 
als zwei Zeilen erstreckt, sollten Sie 
beim Abtippen immer die Befehle 
abkürzen und die Leerzeichen zwi¬ 
schen den Befehlen weglassen. 
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C64 


Das Ende der 


S elbst geübte Basic-Programmierer machen immerwie- 
der Probeläufe ihrer Programme. Allzuoft stecken 
noch Fehler im Programm. Das Programm wird korri¬ 
giert, neuer Testlauf, vielleicht wieder eine Fehlermeldung, 
erneute Korrektur... Und bei jedem Fehler erscheinen die 
schon tausendfach bekannten, langweiligen Fehlermel¬ 
dungen des Betriebssystems. 

Mit dem Programm »Error-Changer« (Listing 1) wird es 
auch ohne hervorragende Kenntnisse des Betriebssy¬ 
stems möglich, den Wortlaut vieler Fehlermeldungen frei 
zu wählen (Bild 1). Das Besondere dabei ist: Ihre neue Feh¬ 
lermeldung kann bis zu 80 Zeichen umfassen. 

Lassen Sie Ihrer Fantasie freien Lauf. Warum sollen alle 
Meldungen in oft verkürztem Englisch, wie beispielsweise 
»UNDEFD STATEMENT ERROR«, auf dem Bildschirm er¬ 
scheinen? Ersetzen Sie diese Meldung beispielsweise in 
gutem Schullatein durch »QUO VADIS«. Oder bevorzugen 
Sie deutsche Meldungen wie »SAG SCHON FREUND WO¬ 
HIN ICH GEHEN SOLL« ? 

Eine der häufigsten Meldungen ist das fade »READY«. 
Wie wäre es mit »STETS ZU DIENSTEN VEREHRTER 
HERR UND GEBIETER« (beziehungsweise »VEREHRTE 
HERRIN UND GEBIETERIN«) ? Aus Ihrem sonst so nüch¬ 
tern reagierenden C64 wird ein ergebener Helfer. Das 
Einheits-ROM ist out, Individualität ist Trumpf. 

Das Programm ist einfach zu bedienen: Laden Sie das 
Programm mit 
LOAD "ERROR-CHANGER",8 
und starten Sie es mit RUN. 

Auf dem Bildschirm erscheint nach dem Start der engli¬ 
sche Text der ersten Fehlermeldung. Wenn Sie diesen Text 


Wer die öden Fehlermeldungen des Betriebssy¬ 
stems wie »READY« oder »SYNTAX ERROR« satt 
hat, kann mit dem »Error-Changer« eigene Fehler¬ 
meldungen kreieren und auf Diskette speichern. 


JETZT BIN ICH FERTIG 

READY 

PRINT 1/0 

PRINT 1/0 

7NICHT DURCH NULL TEILEN!!! 

7DIVISION BY ZERO ERROR 

JETZT BIN ICH FERTIG 

READY 

CONT 

CONT 

?DAS GEHT JETZT NICHT MEHR 

7CANT CONTINUE ERROR 

JETZT BIN ICH FERTIG 

READY 

DIM A(10000) 

DIM A(10000) 

7ICH HABE KEINEN PUTZ MEHR 

70UT OF MEMORY ERROR 

JETZT BIN ICH FERTIG 

READY 


Bild 1. Typische Fehlermeldungen im Vergleich: Links die 
geänderten Meldungen, rechts die Originalmeldungen 


übernehmen wollen, drücken Sie die RETURN-Taste. An¬ 
sonsten geben Sie den Text ein, den Sie als neue Fehler¬ 
meldung bevorzugen. Die Länge des Textes ist nur durch 
die 80-Zeichen-Begrenzung des INPUT-Befehls be- 


ne 

REM ***************************** 

<122> 

(31),J,1>):NEXT:REM READY 

<167> 

130 

REM * * 

<179> 

520 PuKE SV+J,13:A=SV:GOSUB 690:POKE 49220 


140 

REM *ERROR—CHANGER* 

<229> 


,AL7.:POKE 49222,AHZ:POKE SV+J+1,0 

<085> 

150 

REM * * 

<199> 

530 

SYS 49152 

<080> 

151 

REM * C 64 * 

<066> 

540 

INPUT"SPEICHERUNG J/N";S$:IF S*="N"THE 


152 

REM * * 

<201 > 


N END 

<00B> 

160 

REM * BY ANDREAS KNIPP * 

<105> 

550 

IF S*<>“J"THEN 540 

<069> 

170 

REM * * 

<219> 

560 

SA=49152:AE=SV+J+2 

<207> 

180 

REM ***************************** 

< 192> 

570 

PRINT“GERAETENUMMER"; 

<238> 

170 

REM 

<252> 

580 

PRINT"{3SPACEJFL0PPY = Z.B.<2SPACE>8<2 


200 

POKE 53280,4:PDKE 53281,6:G0T0 250 

< 124> 


4SPACE >DAT ASETTE =C4SPACE>1“; 

<196> 

250 

PRINT" <CLR, WHITE3-WAEHLBARE FEHLERMELDU 


590 

INPUT DN 

<110> 


NGEN BY A.KNIPP KPS":DIM TSC40>:FZ=1 

<197> 

600 

A*="@:FEHLER.OBJ":AZ=LEN <A*) 

<056> 

260 

T*(30)="BREAK ERROR" 

<104> 

610 

A=681: GOSUB 690.-POKE 183, AZ:POKE 187,A 


270 

T*(31)="READY.":HI=256 

<150> 


LZ:POKE 188,AHZ 

< 122> 

280 

FOR 1=49152 TO 47232 

<139> 

620 

FOR 1=1 TO AZ:POKE 6B0+I,ASC(MID*<A*,I 


300 

READ X:POKE I,X:NEXT 

<225> 


)):NEXT:REM FILENAME 

<204> 

310 

POKE 768,139:POKE 769,227:REM FEHLERME 


630 

A=SA:GOSUB 690:POKE 251,ALZ:POKE 252,A 



LDUNBEN AUF ROM STELLEN. 

<202> 


HZ:REM STARTADRESSE 

<252> 

320 

LV=41372:SV=47293:VA=49233 

<210> 

640 

A=AE:GOSUB 690:POKE 781,ALZ:POKE 782,A 


330 

FOR LV=41373 TO 41767:REM EINLESEN DER 



HZ:REM ENDADRESSE 

< 109> 


ALTEN FEHLERMELDUNGEN 

<043> 

650 

POKE 186,DN:POKE 780,251:SYS 65496:REM 


340 

T* < FZ)=T*(FZ > +CHR* <PEEK < LV > AND 127):IF 



SAVE:DN = DEVICENUMMER 

<027> 


PEEK(LV)<127 THEN 370 

<236> 

660 

PRINT"CWHITEJSPEICHERUNG ERFOLGTE UNTE 


350 

T*(FZ)=T*(FZ)+" ERROR":PRINT T*(FZ> 

<052> 


R "CHR*<34>"FEHLER.OBJ"CHR*(34) 

< 133> 

360 

FZ=FZ+1 

<100> 

670 

PRINT"ABSOLUT LADEN UND MIT SYS 49152 


370 

NEXT LV:FZ=FZ+1:REM PLATZ FUER READYME 



STARTEN" 

<254> 


LDUNG 

<061 > 

680 

END 

<174> 

380 

FOR 1=1 TO FZ:REM MOEGLICHKEIT DER AEN 


690 

AHZ=A/HI:ALZ=A-AHZ*HI 

<231 > 


DERUNG 

<126> 

700 

RETURN 

<250> 

390 

PRINT"<2RIGHT >"T*(I> CHR*(13)"<UP >"j:IN 


710 

DATA 169,11,160,192,141,0,3,140,1,3,96 



PUT T*(I> 

< 152> 


,138 

<111> 

400 

IF LEN<T*(I>><2 THEN 390 

< 146> 

720 

DATA 16,3,76,67,192,10,170,189,77,192, 


410 

NEXT I 

<240> 


133,34 

<186> 

420 

INPUT"ALLES RICHTIG J/N";AR*:IF AR*<>" 


730 

DATA 189,80,192,133,35,32,204,255,169, 



J"THEN 380 

<054> 


0,133,19 

<008> 

430 

FOR J=1 TO FZ—1:REM NEUE FM IN DEN SPE 


740 

DATA 32,215,170,32,69,171,160,0,177,34 



ICHER SCHREIBEN 

< 109> 


,72,41 

<019> 

440 

FOR 1 = 1 TO LEN(T*(J)> —1 

<031 > 

750 

DATA 127,32,71,171,200,104,16,244,32,1 


450 

POKE SV+I-1,ASC(MID*<T*(J>,1,1)> 

<061 > 


22,166,164 

< 132> 

460 

NEXT I 

<034> 

760 

DATA 58,200,240,3,32,194,189,169,1B7,1 


470 

POKE SV+I-1,ASC(MID*CT*<J),1,1)>+128 

<126> 


60,194,76 

< 174> 

480 

A=SV:GDSUB 690:POKE VA+1 , AHZ :PDKE VA,A 


770 

DATA 120,164 

<009> 


LZ 

<187> 

780 

DATA 169,139,160,227,76,4,192 

<192> 

490 

VA=VA+2: SV=SV+1: NEXT J 

<038> 




500 

POKE SV,13 

< 189> 

Listing 1. »Error-Changer« bitte mit dem Checksummer 

510 

FOR J=1 TD LEN(T* <31)):POKE SV+J,ASC(M 


eingeben 
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langweiligen 


schränkt. Sollte der neue Text kürzer sein als der alte, über¬ 
schreiben Sie den Rest mit Leerzeichen. 

Sie können auch die Abbruchmeldung BREAK oder die 
READY-Meldung ändern. Bedingt durch das Betriebssy¬ 
stem kommt es jedoch gelegentlich vor, daß nicht immer 
der geänderte Text erscheint. 

Bei der Eingabe sollten Sie darauf achten, Sonderzei¬ 
chen wie Komma oder Doppelpunkt zu vermeiden. Der 
INPUT-Befehl ignoriert diese Sonderzeichen. 

Haben Sie alle Fehlermeldungen, die vom Programm 
vorgegeben werden, geändert beziehungsweise übernom¬ 
men, werden nach einer Sicherheitsabfrage die neuen Mel¬ 
dungen in den Speicher des C64 zurückgeschrieben. Die 
Änderungen sind natürlich nur so lange wirksam, bis der 
Computer ausgeschaltet oder ein Reset ausgeführt wird. 

Das Programm fragt Sie anschließend, ob die neuen 
Fehlermeldungen auf Diskette oder Datasette gespeichert 
werden sollen. Der Dateiname »FEHLER.OBJ« ist vorgege¬ 
ben. Existiert bereits eine Datei mit diesem Namen, wird sie 
automatisch überschrieben. 


Wollen Sie Ihre kreativen Einfälle wieder in den Compu¬ 
ter laden, geben Sie bitte ein: 

LOAD "FEHLER.OBJ",8,1 

Datasettenbenutzer ersetzen bitte die 8 durch eine 1. 
Nach dem Laden ist unbedingt der Befehl NEW einzuge¬ 
ben. Die neuen Fehlermeldungen wer¬ 
den mit SYS 49152 aktiviert und mit SYS 
49226 ausgeschaltet. 

Hinweise für Programmierer: 

In den Speicherstellen 768 und 768 
steht ein »Zeiger« auf die Stellen des Be¬ 
triebssystems, wo die Fehlermeldungen des C 64 zu finden 
sind. Dieser Zeiger, der die Adresse für den Beginn der Mel¬ 
dungen darstellt, wird auf einen neuen Bereich eingestellt, 
in dem Ihre neuen Fehlermeldungen gespeichert werden. 
Tritt ein Fehler ein, wird anhand der Fehlernummer und der 
geänderten Adresse zu Ihrem neuen Text gesprungen und 
dieser ausgegeben. (Andreas Knipp/ef) 


Kurzinfo: Error-Changer 


Programmfunktion: Eigene Texte für Fehlermeldungen des C64 
Laden: LOAD "ERROR-CHANGER",8 
Starten: Nach dem Laden RUN eingeben. 

Besonderheiten: Neue Fehlermeldungen können auf Diskette 
oder Datasette gespeichert werden. Der Name »FEHLER.OBJ« 
wird vom Programm vorgegeben. Zum Laden geben Sie LOAD 
"FEHLER.OBJ",8,1 (für Datasette die 8 durch 1 ersetzen) ein. 
Nach dem Laden ist unbedingt NEW einzugeben. Aktiviert werden 
die Meldungen mit SYS 49152, ausgeschaltet mit SYS 49226. 
Programmautor: Andreas Knipp 


Fehlermeldungen 



(Fortsetzung auf Seite 40) 
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D ieses Programm verkürzt jedes Basic-Programm, in¬ 
dem es nicht benötigte Leerzeichen, REM-Zeilen und 
so weiter aus dem Programm entfernt. Zusätzlich kön¬ 
nen als Option die Basic-Zeilen, die Editor-bedingt nur 80 
Zeichen lang sein können, auf bis zu 255 Zeichen pro Zeile 
zusammengeschoben werden. Dies ist gelegentlich not¬ 
wendig, wenn Sie zum Beispiel ein Adreß- oder Dateiver¬ 
waltungsprogramm geschrieben haben und es zur besse¬ 
ren Übersichtlichkeit mit REM-Zeilen gut dokumentierten. 
Im nachhinein stellen Sie aber fest, daß Ihnen Ihr Speicher 
für die Variablen nicht mehr ganz ausreicht (OUT OF ME¬ 
MORY ERROR) und Sie dringend Platz benötigen. In die¬ 
sem Falle hilft es Ihnen, das Hauptprogramm zu verkürzen, 
indem Sie alle nicht benötigten Bytes entfernen. Dies sind 
REM-Zeilen, nicht benötigte Spaces (Leerzeichen) oder 
ähnliches. Ebenfalls hilft es, die Basic-Zeilen neu zu »lin¬ 
ken«, also mehrere Zeilen zu einer einzigen zusammenzu¬ 
fügen. Hierbei entfallen pro gesparter Zeilennummer 4 By¬ 
te für die Zeilennummer und den Linkpointer auf die näch¬ 
ste Zeile. Dadurch kann oft sehr viel Speicherplatz gespart 
werden. 


Kurzinfo: Basic-Packer 


Programmart: Hilfsprogramm für Basic-Programmierer 
Laden: LOAD "BASIC-PACKER",8 
Starten: Nach dem Laden RUN eingeben. 

Besonderheiten: Nach dem Start wird das Programm nach $C000 
verschoben. Laden Sie jetzt das Basic-Programm, das Sie kürzen 
wollen. Mit SYS 49152 wird der »Basic-Packer« aktiviert. 
Programmautor: Christoph Zwerschke 


Nach dem Packen ist das Programm zwar kaum noch 
editierbar, und die Lesbarkeit des Programms hat auch ge¬ 
litten, aber es läuft genauso wie das Original (meist sogar 
etwas schneller, da der Interpreter jetzt nicht mehr soviel 
Programm »durchforsten« muß). Außerdem hat man noch 
Speicherplatz gespart, und das ist bei vielen Basic-Pro- 
grammen ja auch der Effekt, den man erreichen will. Bevor 
Sie allerdings ein Basic-Programm mit dem »Basic-Packer« 
verkürzen, sollten Sie es sich noch einmal genau anschau¬ 
en. Wenn Sie beispielsweise eine REM-Zeile als Sprung¬ 
ziel für ein GOTO oder GOSUB gewählt haben, kann es zu 
Schwierigkeiten im Programmablauf kommen. 

Eine Hilfe zum Herausfinden solcher problematischen 
Programmteile bietet das »Basic-Kontroll-System«, das Sie 
in diesem Heft ab Seite 24 finden. Das BKS ermittelt sehr 
schnell, ob Sie solche Sprungziele verwenden. 

Eingabehinweise 

Das Programm (Listing 1) geben Sie bitte mit Hilfe des 
MSE ein und speichern es auf Ihren Datenträger. 

Danach läßt sich der Basic-Packer normal mit 
»LOAD"BASIC-PACKER",8« laden und durch RUN star¬ 
ten. Er verschiebt sich selbständig in den $C000-Bereich. 
Sie können jetzt das Basic-Programm, das verkürzt werden 
soll, von Diskette laden. Mit SYS 49152 wird der Packer akti¬ 
viert. Anschließend haben Sie die Wahl, ob Sie nur alle 
Leerzeichen und REM-Zeilen löschen oder zusätzlich alle 
Zeilen auf eine maximale Länge bringen wollen. Im zweiten 
Fall ist ein Editieren der Zeilen nicht mehr möglich. 

Nach Abschluß des Packens wird Ihnen noch angezeigt, 
wie viele Bytes eingespart wurden. Jetzt ist das Programm 
gepackt und bereit zum Speichern. 

(Christoph Zwerschke/ef) 


Name : 

basic-packer 


0801 0f48 

0909 

: a5 

2c 

85 

7b 

20 

ef 

c4 

a5 

75 

0a21 

: 90 

02 

e6 

7b 

20 

73 

00 

aO 

ba 











0911 

: 7a 

38 
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45 

21 

Llollliy 1. 

’DaSIC-r'aCKer« 




0c79 

: 2c 

85 

7b 

aO 

04 

bl 

7a 

fO 

f4 

Odfl : 

49 

4c 

45 

4e 29 

2e 

Od 

ld 

ee 

- em rruyramm, 







0c81 

: 07 

c9 

fa 

fO 

36 

c8 

dO 

f5 

22 

0df9 : 

18 

ld 

ce 

45 

55 

4e 

55 

4d 

b9 

um dcisiü- 









0c89 

: 20 

ef 

c4 

84 

3e 

c8 

c8 

bl 

13 

OeOl : 

45 

52 

49 

45 

52 

55 

4e 

47 

02 

Listings kurzer und schneller 


0c91 

: 7a 

dO 

01 

60 

18 

65 

3e 

90 

87 

0e09 : 

20 

41 

4c 

4c 45 

52 

20 

da 

84 

zu machen. 








0e99 

: 05 

a4 

3e 

4c 

66 

c4 

a5 

7b 

24 

Oell : 

45 

49 

4c 

45 4e 

2e 

Od 

ii 

63 

bitte mit dem 







Ocal 

: 85 

40 

a5 

7a 

18 

65 

3e 

85 

bO 

Oe 19 : 

42 

29 

20 

d7 49 

45 

20 

4l 

b5 

MSE (Seite 159) 







0ca9 

: 3f 

90 

02 

e6 

40 

aO 

04 

20 

e7 

0e21 : 

29 

2c 

20 

41 42 

45 

52 

20 

68 

eingeben. 
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Im Sonderheft 39 auf Seite 27 haben 
wir es angekündigt: Hier ist das Konvertier¬ 
programm, mit dem Sie problemlos Texte 
vom Mastertext- ins Giga-Publish-Förmat 
umwandeln können. Außerdem 
finden Sie noch einige interessante 
Hinweise zur effektiven 
Arbeit mit Giga-Publish. 

M astertext verwendet ein spezielles Format beim 
Speichern, das in Giga-Publish nicht eingelesen 
werden kann. »Master/Konvert« beseitigt dieses 
Problem. Es wandelt den Text in ein Format um, das der 
Text-Editor von Giga-Publish laden und verarbeiten kann. 

Das Hilfsprogramm »MASTER/KONVERT« (Listing 1), in 
Verbindung mit der Routine »tcO« (Listing 2), wird benötigt, 
wenn Sie eine Datei unter Mastertext erstellt haben. 
Hinweise zur Bedienung: 

Wenn Sie die beiden Listings mit dem MSE abgetippt ha¬ 
ben, speichern Sie die beiden Programme auf eine Disket¬ 
te. Kopieren Sie dann mit einem geeigneten File- 
Kopierprogramm die beiden Giga-Publish-Dateien »gpF« 
und »gpM« auf dieselbe Diskette. Ein Tip: Wenn Sie kein Ko¬ 
pierprogramm haben, verwenden Sie einfach den MSE 
zum Kopieren. Laden Sie eine Datei in den MSE, legen an¬ 
schließend die neue Diskette ins Laufwerk und speichern 
die Datei zum Schluß. 

Auf der Diskette sollten nun folgende vier Dateien sein: 
- master/konvert 



- tcO 

-gpF 

-gpM 

Jetzt können Sie das Programm mit »LOAD "MASTER/ 
KONVERT", 8,1« laden. Es startet automatisch. 

Das Programm meldet sich mit einem Auswahlmenü, 
das folgende Optionen hat: 

a) laden 

b) speichern 
x) exit 

Legen Sie bitte die Diskette mit Ihrer Mastertext-Datei ins 
Laufwerk, bevor Sie einen Menüpunkt auswählen. 


E'iER onur^' 


Name : 

: master/konvert 


0324 03ca 

0324 : 

: 3c 

03 

ca 

fl 

ed 

f6 

3e 

fl 

46 

032c : 

: 2f 

f3 

66 

fe 

a5 

f4 

ed 

f5 

74 

0334 : 

: d8 

a2 

ff 

9a 

78 

20 

53 

e4 

50 

033c : 

: 20 

44 

e5 

a9 

57 

a2 

fl 

8d 

9a 

0344 : 

: 24 

03 

8e 

25 

03 

a2 

00 

bd 

f3 

034c : 

: 57 

03 

9d 

00 

cO 

ca 

dO 

f7 

22 

0354 : 

: 4c 

00 

cO 

a9 

00 

85 

9d 

8d 

c3 


035c 

: 20 

dO 

8d 

21 

dO 

a9 

08 

aa 

3c 

0364 

: a8 

20 

ba 

ff 

a9 

03 

a2 

67 

d7 

036c 

: aO 

cO 

20 

bd 

ff 

a9 

00 

20 

ba 

0374 : 

: d5 

ff 

18 

ad 

14 

cO 

69 

03 

f8 

037c : 

: 8d 

14 

cO 

c9 

73 

dO 

e5 

a9 

25 

0384 : 

: 03 

a2 

64 

aO 

cO 

20 

bd 

ff 

09 

038c : 

: 20 

cO 

ff 

a2 

08 

20 

c6 

ff 

fd 

0394 : 

: 20 

a5 

ff 

20 

a5 

ff 

a2 

00 

70 

039c : 

: 20 

a5 

ff 

9d 

fc 

le 

e8 

dO 

48 


03 a4 : 

f7 

20 

a5 

ff 

9d 

fc 

lf 

e8 

25 

03 ac : 

eO 

04 

dO 

f5 

20 

cc 

ff 

a9 

3d 

03b4 : 

08 

20 

c3 

ff 

4c 

00 

20 

47 

91 

03b c : 

50 

cd 

47 

50 

c6 

47 

50 

ce 

54 

03c4 : 

54 

43 

30 

54 

43 

31 

00 

00 

Oe 


Listing 1. »Master/Konvert« 
bitte mit dem 
MSE eingeben 


Name 

tcO 





2000 2c0a 

20a0 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

9f 

2150 

: 91 

dl 

88 

10 

fb 

ca 

10 

fl 

28 











20a8 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

a7 

2158 

: e8 

a9 

Of 

9d 

00 

d8 

9d 

00 

ca 

2000 

4c 

32 

2b 

00 

00 

00 

00 

00 

30 

20b0 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

af 

2160 

: d9 

9d 

00 

da 

9d 

e7 

da 

ca 

7d 

2008 

00 

00 

ff 

01 

02 

03 

04 

05 

7b 

20b8 : 

ff 

ff 

86 

04 

85 

05 

a9 

00 

00 

2168 

: dO 

fl 

a9 

Ob 

8d 

20 

dO 

a9 

6d 

2010 

06 

07 

08 

09 

0a 

Ob 

Oc 

Od 

00 

20c0 : 

a2 

04 

9d 

00 

02 

ca 

10 

fa 

78 

2170 

: 00 

8d 

21 

dO 

60 

00 

28 

50 

el 

2018 

Oe 

Of 

10 

11 

12 

13 

14 

15 

08 

20c 8 : 

a2 

10 

86 

02 

a2 

05 

aO 

00 

29 

2178 

: 78 

aO 

c8 

fO 

18 

40 

68 

90 

d7 

2020 

16 

17 

18 

19 

la 

5b 

5c 

5d 

94 

20d0 : 

18 

b9 

00 

02 

2a 

c9 

Oa 

90 

3f 

2180 

: b8 

eO 

08 

30 

58 

80 

a8 

dO 

7e 

2028 

5e 

ff 

20 

21 

22 

00 

24 

25 

af 

20d8 : 

02 

e9 

Oa 

99 

00 

02 

c8 

ca 

4d 

2188 

: f8 

20 

48 

70 

98 

cO 

04 

04 

58 

2030 

26 

27 

28 

29 

2a 

2b 

2c 

2d 

20 

20e0 : 

dO 

ef 

06 

04 

26 

05 

90 

15 

al 

2190 

: 04 

04 

04 

04 

04 

05 

05 

05 

9f 

2038 

2e 

2f 

30 

31 

32 

33 

34 

35 

28 

20e8 : 

bd 

00 

02 

18 

69 

01 

c9 

Oa 

03 

2198 

: 05 

05 

05 

06 

06 

06 

06 

06 

d7 

2040 

36 

37 

38 

39 

3a 

3b 

3c 

3d 

30 

20f0 : 

90 

08 

a9 

00 

9d 

00 

02 

e8 

a2 

21 a 0 

: 06 

06 

07 

07 

07 

07 

07 

84 

la 

2048 

3e 

3f 

40 

41 

42 

43 

44 

45 

38 

20f8 : 

dO 

ee 

9d 

00 

02 

c6 

02 

dO 

a7 

21 a 8 

: d6 

86 

d3 

8e 

cc 

22 

8d 

ce 

3a 

2050 

46 

47 

48 

49 

4a 

4b 

4c 

4d 

40 

2100 : 

cb 

ad 

00 

02 

ae 

04 

02 

8d 

10 

21b0 

: 22 

29 

3f 

18 

65 

d3 

8d 

cd 

00 

2058 

4e 

4f 

50 

51 

52 

53 

54 

55 

48 

2108 : 

04 

02 

8e 

00 

02 

ad 

01 

02 

47 

21b8 

: 22 

20 

3a 

21 

2c 

ce 

22 

50 

ff 

2060 

56 

57 

58 

59 

5a 

lb 

lc 

ld 

CC 

2110 : 

ae 

03 

02 

8d 

03 

02 

8e 

01 

ef 

21 c 0 

: Od 

ac 

cd 

22 

88 

a9 

7f 

91 

d2 

2068 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

67 

2118 : 

02 

a2 

04 

bd 

00 

02 

09 

30 

b9 

21c8 

: dl 

cc 

cc 

22 

dO 

f6 

20 

83 

c3 

2070 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

6f 

2120 : 

9d 

00 

02 

ca 

10 

f5 

a2 

00 

d2 

21d0 

: 24 

20 

e5 

24 

20 

38 

24 

bO 

b8 

2078 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

77 

2128 : 

bd 

00 

02 

c9 

30 

dO 

Oa 

a9 

a4 

21d8 

: fb 

a2 

07 

dd 

fe 

21 

fO 

Oa 

73 

2080 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

7f 

2130 : 

7f 

9d 

00 

02 

e8 

eO 

04 

dO 

05 

21e0 

: ca 

10 

f8 

c9 

70 

bO 

ed 

4c 

06 

2088 

23 

81 

ff 

ff 

ff 

ff 

ff 

ff 

6c 

2138 : 

ef 

60 

a6 

d6 

bd 

75 

21 

85 

f3 

21 e 8 

: 80 

22 

a8 

8a 

Oa 

aa 

bd 

06 

ee 

2090 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

8f 

2140 : 

dl 

bd 

8e 

21 

85 

d2 

60 

a2 

6d 

21f0 

: 22 

8d 

fc 

21 

bd 

07 

22 

8d 

f4 

2098 

80 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

18 

2148 : 

18 

20 

3c 

21 

aO 

27 

a9 

7f 

8c 

21f8 

: fd 

21 

98 

4c 

ff 

ff 

fl 

80 

fe 


42 
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vertieren 

Mit <a> (laden) wird der Text geladen: Das Directory 
der eingelegten Diskette wird eingelesen und auf dem Bild¬ 
schirm angezeigt. Mit den Cursortasten kann es auf- und 
abgescrollt werden. Steht Ihr Text genau zwischen den Be¬ 
grenzungszeichen ganz oben, drücken Sie < RETURN >. 

Wenn der Text erfolgreich geladen wurde, erscheint das 
Hauptmenü wieder auf dem Bildschirm. Entfernen Sie Ihre 
Textdiskette und legen Sie die Diskette ein, auf der alle Ihre 
Giga-Publish-Dateien gespeichert sind. 

Mit <b> speichern wird Ihr Text auf diese Diskette ge¬ 
speichert: Er liegt nach der Konvertierung in dem Format 
vor, das Giga-Publish verarbeiten kann. 


„ Die Handhabung des Gesamtpakets erfordert sehr viel 
Übung. Wir wollen Ihnen hier einige Tips geben, die die Ar¬ 
beit vereinfachen: 

1. Überlegen Sie sich als erstes eine Skizze, in der Sie 
das Layout festlegen: Spaltenzahl, Anzahl der Text- und 
Bildboxen, Plazierung der Bilder, verwendete Zeichensät¬ 
ze etc. 

2. Verwenden Sie Bilder, laden Sie den Bild-Konverter 
und konvertieren Sie die Grafiken. Notieren Sie sich die 
Werte für Druckbreite und Druckhöhe (Unterpunkt: Info 
ausgeben), die Sie für die Bildboxen benötigen. 

3. Laden Sie Giga-Publish und wählen Sie »a) Layout«, 
dann »bearbeiten«. Entwerfen Sie jetzt Ihr gewünschtes 
Layout. Sind alle Boxen festgelegt, notieren Sie sich die zu¬ 
gehörigen Nummern. Dann verlassen Sie diesen Punkt. 

4. Wählen Sie im Menü »Layout« nun »e) Extras« an. Dort 
stellen Sie die verschiedenen Parameter ein. 

5. Vom Layout-Menü wählen Sie anschließend über 
Punkt <d> die gewünschten Zeichensätze aus. 

6. Kehren Sie jetzt ins Hauptmenü zurück. Dort aktivieren 
Sie den Text-Editor. Schreiben Sie einen neuen Text oder la¬ 
den Sie einen bestehenden: nicht vergessen, Mastertext 
muß vorher konvertiert worden sein. Denken Sie daran, die 
Steuerzeichen für die Wahl der Zeichensätze für jede Text¬ 
box anzugeben. 

7. Nach Verlassen des Editors läßt sich der Text über Me¬ 
nüpunkt <c> ausdrucken. Achten Sie darauf, daß das Pa¬ 
pier richtig eingelegt ist, um einen unsauberen Schriftaus¬ 
druck zu vermeiden. Eventuell lösen Sie vor dem Ausdruck 
noch einen Zeilenvorschub beim Drucker aus. 

(Dieter Bayer/ef) 


S4GR onun®»*< 


2200 : 

e8 

e9 

ee 

ef 

ea 

e'b 

bf 

22 

e8 

2320 

: ff 

ff 

60 

a2 

27 

a9 

7e 

9d 

80 

2440 

: a2 

00 bd 

78 

02 

9d 

77 

02 

50 

2208 : 

8f 

22 

19 

22 

35 

22 

5e 

22 

55 

2328 

: 00 

04 

9d 

aO 

04 

ca 

10 

f7 

6c 

2448 

: e8 

e4 c6 

dO 

f5 

c6 

c6 

98 

50 

2210 : 

52 

22 

78 

22 

6b 

22 

4c 

dl 

72 

2330 

: 30 

cb 

c9 

20 

90 

18 

c9 

40 

2e 

2450 

: 58 

18 24 

38 

60 

fc 

le 

3d 

a5 

2218 : 

21 

a4 

d3 

cc 

cc 

22 

fO 

f6 

a9 

2338 

: 90 

25 

c9 

60 

90 

17 

c9 

80 

c3 

2458 

: lf 

7e lf 

fc 

le 

bf 

lf 

fc 

74 

2220 : 

c6 

d3 

bl 

dl 

88 

91 

dl 

c8 

64 

2340 

: 90 

Of 

c9 

cO 

90 

08 

c9 

eO 

14 

2460 

: le 

fc le 

fc 

le 

20 

38 

24 

30 

2228 : 

c8 

cc 

cd 

22 

90 

f4 

88 

a9 

34 

2348 

: 90 

Of 

c9 

ff 

fO 

Of 

a9 

7f 

ff 

2468 

: bO 

fb c9 

fl 

fO 

04 

c9 

Oa 

31 

2230 : 

7f 

91 

dl 

dO 

el 

ac 

cd 

22 

05 

2350 

: 60 

38 

e9 

20 

60 

38 

e9 

40 

3b 

2470 

: 18 

60 a9 

01 

38 

60 

a9 

00 

70 

2238 : 

88 

bl 

dl 

c9 

7f 

dO 

d7 

c4 

ae 

2358 

: 60 

38 

e9 

80 

60 

a9 

5e 

60 

ec 

2478 

: 85 

c6 a5 

c6 

fO 

fc 

a9 

00 

40 

2240 : 

d3 

fO 

d3 

88 

bl 

dl 

c8 

91 

81 

2360 

: d8 

a9 

00 

8d 

8d 

02 

aO 

40 

ab 

2480 

: 85 

c6 60 

a9 

10 

8d 

d2 

24 

b7 

2248 : 

dl 

88 

c4 

d3 

dO 

f5 

a9 

20 

ac 

2368 

: 84 

cb 

8d 

00 

de 

ae 

01 

de 

36 

2488 

: a9 

Ob 8d 

f8 

07 

a9 

01 

8d 

16 

2250 : 

dO 

df 

a6 

d3 

ec 

cc 

22 

fO 

d3 

2370 

: eO 

ff 

dO 

03 

4c 

fd 

23 

a8 

77 

2490 

: 27 

dO a2 

01 

8e 

15 

dO 

ca 

52 

2258 : 

bd 

c6 

d3 

4c 

dl 

21 

a6 

d3 

5f 

2378 

: a9 

81 

85 

f5 

a9 

eb 

85 

f6 

00 

2498 

: 8e 

lb dO 

8a 

a2 

3f 

9d 

cO 

55 

2260 : 

e8 

ec 

cd 

22 

bO 

bO 

e6 

d3 

4a 

2380 

: a9 

fe 

8d 

00 

de 

a2 

08 

48 

9f 

24a0 

: 02 

ca 10 

fa 

8e 

cO 

02 

8e 

7f 

2268 : 

4c 

dl 

21 

ac 

cc 

22 

a9 

7f 

fe 

2388 

: ad 

01 

de 

cd 

01 

de 

dO 

f8 

d3 

24a8 

: c3 

02 78 

a9 

b9 

8d 

14 

03 

le 

2270 : 

91 

dl 

c8 

cc 

cd 

22 

dO 

f8 

d9 

2390 

: 4a 

bO 

16 

48 

bl 

f5 

c9 

05 

bd 

24b0 

: a9 

24 8d 

15 

03 

58 

4c 

e5 

61 

2278 : 

ad 

cc 

22 

85 

d3 

4c 

dl 

21 

ee 

2398 

: bO 

0c 

c9 

03 

fO 

08 

Od 

8d 

cO 

24b8 

: 24 

d8 ce 

d2 

24 

dO 

Od 

a9 

a7 

2280 : 

a4 

d3 

91 

dl 

c8 

cc 

cd 

22 

lb 

23 aO 

: 02 

8d 

8d 

02 

10 

02 

84 

cb 

c7 

24c0 

: 10 

8d d2 

24 

ad 

15 

dO 

49 

29 

2288 : 

fO 

02 

84 

d3 

4c 

dl 

21 

ac 

46 

23a8 

: 68 

c8 

cO 

41 

bO 

Ob 

ca 

dO 

fd 

24c8 

: 01 

8d 15 

dO 

20 

e5 

24 

4c 

4a 

2290 : 

cd 

22 

88 

bl 

dl 

c9 

7f 

dO 

d2 

23b 0 

: df 

38 

68 

2a 

8d 

00 

de 

dO 

f9 

24d0 

: 60 

23 00 

a9 

00 

8d 

15 

dO 

59 

2298 : 

07 

cc 

cc 

22 

fO 

21 

dO 

f2 

be 

23b8 

: cc 

68 

4c 

24 

24 

a4 

cb 

bl 

4a 

24d8 

: 78 

a9 60 

8d 

14 

03 

a9 

23 

35 

22 aO : 

c8 

8c 

cb 

22 

a2 

00 

ac 

cc 

5c 

23c0 

: f5 

aa 

c4 

c5 

fO 

07 

aO 

10 

de 

24e0 

: 8d 

15 03 

58 

60 

a5 

d3 

Oa 

5a 

22a8 : 

22 

bl 

dl 

2c 

ce 

22 

10 

03 

el 

23c8 

: 8c 

8c 

02 

dO 

30 

2c 

8a 

02 

c8 

24e8 

: Oa 

Oa a8 

a9 

00 

2a 

aa 

18 

83 

22b 0 : 

20 

cf 

22 

9d 

00 

02 

e8 

c8 

39 

23d0 

: 30 

12 

70 

45 

c9 

20 

fO 

Oc 

48 

24 fO 

: 98 

69 18 

a8 

8a 

69 

00 

8d 

67 

22b 8 : 

cc 

cb 

22 

dO 

ec 

fO 

02 

a2 

bO 

23 d8 

: cO 

00 

fO 

08 

cO 

02 

fO 

04 

bd 

24f8 

: 10 

dO 8c 

00 

dO 

a5 

d6 

Oa 

3d 

22c0 : 

00 

8e 

cb 

22 

20 

d3 

24 

ad 

cb 

23e0 

: cO 

07 

dO 

35 

ac 

8c 

02 

fO 

18 

2500 

: Oa 

Oa 18 

69 

39 

8d 

01 

dO 

e8 

22c8 : 

cb 

22 

60 

00 

00 

00 

00 

c9 

50 

23e8 

: 05 

ce 

8c 

02 

dO 

2b 

ce 

8b 

70 

2508 

: 60 

53 3a 

54 

29 

31 

32 

33 

76 
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Der C 64 als Syntkesizer 



Jetzt kommen die Sound-Eigenschaften des C 64 
ans Tageslicht. Die Computertasten werden zum 
Keyboard mit einstellbaren Klangeigenschaften - 
und alles ist am Monitor zu sehen. 


****-» **-* 

C-C4 SYNTHESIZER *****►>„< 

MHUIkUlUH r.l 

TASTEN 

rt r o 

PARAMETER 6123456789ABCDEF 

r 1 r tL 

F3 F 4 

F5_FS 

ABSCHWELLEN ■ 

AlikkLINBEN SaUSS' MB( " >r 

F7 F8 

'Z' 

CRSR 

WELLENFORh SAEGEZAHN 

OKTAVEN C-4 DIS C 6 

'C' 

FILTER HOCH BAND TIEF 

RUN/STOP 

ENDE 

HAI 

r.'T IK AHLBORN 3418 USL AR 


Bild 1. Der Bildschirm zeigt alle Werte auf einem Blick 


H aben Sie sich nicht schon immer eine kleine Heimor¬ 
gel gewünscht? Mit dem Programm »Synthesizer« 
verwandeln Sie Ihren C 64 in rii.ises Instrument (Bild 

1). Drücken Sie auf die Tasten und lassen Sie sich überra¬ 
schen. 

Um die Möglichkeiten zu nutzen, sind folgende Parame¬ 
ter einstellbar und werden übersichtlich - teilweise grafisch 
unterstützt - auf dem Bildschirm dargestellt. 

1) Die Tastenreihe »Q« bis »RETURN« bildet die Orgeltasta¬ 
tur. Sie umfaßt zwei Oktaven-mit allen Halbtönen und er¬ 
scheint oben auf dem Bildschirm. Beim Drücken einer Ta¬ 
ste erklingt der Ton so lange, bis sie wieder losgelassen 
wird. Gleichzeitig zeigt ein gelber Balken die aktivierte Or¬ 
geltaste an. 

2) Anschlag, Abschwellen, Haltepegel und Ausklingen der 
Orgeltasten sind mit den Funktionstasten einstellbar. Die 
geSHIFTeten Tasten verringern, die ungeSHIFTeten erhö¬ 
hen den Wert. Die relative Lautstärke (Pegel) des Tones 
wird ständig rechts oben als Balken auf dem Bildschirm ge¬ 
zeigt. 

3) Als Wellenformen kann man Dreieck, Sägezahn, Recht¬ 
eck, Rauschen und die ringmodulierte Dreieckschwingung 
(RING) mit der Taste <Z> wählen. Die beiden letzten sind 
in Klammern eingefaßt, da sie sich zum Musizieren nicht 
eignen. 

4) Wählt man die Rechteckschwingung, wird das Tastver¬ 
hältnis angezeigt und kann mit den Tasten <N> und 


Kurzinfo: Synthesizer 


Programmart: Musikprogramm 
Laden mit: LOAD "SYNTHESIZER",8 
Starten mit: Nach dem Laden RUN eingeben. 

Eingaben über: Tastatur 
Besonderheiten: 

Die Maschinenroutine »SYNTHESIZER-OBJ« wird nach dem 
Starten automatisch nachgeladen. 

Programmautor: Martin Ahlborn 
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< M > in Sechzehntel-Abstufungen verändert werden. Das 
Low-Byte des Tastverhältnisses beträgt immer 128. 

5) Der Synthesizer nutzt das im Anhang P des Handbuchs 
gezeigte Frequenzspektrum voll aus: Der tiefste Ton ist der 
Halbton unter C 0 und der höchste ist das Ais-7 (!). 

Da die Tastatur aber nur zwei Oktaven umfaßt, kann man 
mit den Cursortasten den Frequenzbereich um jeweils eine 
Oktave ändern. 

6) Mit der Taste <C> wird der Filtermodus umgeschaltet, 
wobei das entsprechende Wort auf dem Bildschirm revers 
geschrieben wird. Ist kein Filtermodus eingeschaltet, wer¬ 
den die Schaltbits 0,1 und 2 im Register 23 gelöscht, also 
für alle drei Stimmen die Filter ausgeschaltet. Auch die Ver¬ 
wendung mehrerer Filtermodi ist zugelassen. 

7) Die folgenden Parameter sind nur bei eingeschalteten 
Filtern hör- und sichtbar: 

7a) Mit den (ungeshifteten) Tasten <[> und <]> verän¬ 
dert man die Grenzfrequenz der Filter in Sechzehntel¬ 
schritten. Es werden also die höchstwertigen 4 Bit im Regi¬ 
ster 22 variiert. 

7b) Die Filterresonanz wird mit den Tasten < < > und 

< > > vergrößert oder verkleinert. 

7c) Die Tasten <?> beziehungsweise <.> schaltenden 
»Wah-wah«-Effekt (er heißt wie er klingt) ein und aus. Nach 
dem Einschalten wird die Filtergrenzfrequenz (Register 22) 
gemäß dem Verlauf der Hüllkurve (Register 28) verändert. 
Die eingestellte Filterfrequenz (siehe 7a) hat dann keine 
Bedeutung. 

8) Mit der Stopp-Taste verläßt man das Programm. Da es 
jetzt im Speicher ist, kann es mit RUN 1000 unverzüglich 
wieder gestartet werden. Nun haben alle Parameter wieder 
die ursprünglichen Werte. 

Ich möchte nicht verheimlichen, daß der »Synthesizer« 
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Listing 1. »SYNTHESIZER« - das Hauptprogramm 
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Okt. 
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An 
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Filt 

Wah 

FF 
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4-6 

Rechteck 

1 

0 

9 

0 

9 

HBT 

Ein 

- 

7 

Mandoline 

5-7 

Rechteck 

C 

0 

8 

00 

8 

- 

- 

- 

- 

Mundhar¬ 

monika 

6-8 

Sägezahn 

- 

8 

0 

F 

7 

. 

. 

„ 

. 

Gong 

3-5 

Ring 

- 

0 

D 

0 

D 

- 

- 

- 

- 

Explosion 

0-2 

Rauschen 

- 

0 

0 

F 

C 

- 

- 

- 

- 

Popcorn 

5-7 
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- 

0 

2 

0 

0 

- 

- 

- 

- 

Quak-quak 

4-6 

Sägezahn 

- 

8 

9 

9 

8 

B 

Ein 

- 

F 
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5-7 

Rauschen 

. 

B 

B 

0_ 

B 

HBT 

Ein 

. 

7 

Knattern 

0-2 
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0 

8 

0 

F 

D 

- 

- 

- 

- 
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4-6 

Dreieck 

- 

0 

9 

0 

9 

T 

Aus 

2 

6 

Glöckchen 

6-8 

Dreieck 

- 

0 

A 


A 

- 

- 

- 

- 


Tabelle 1. Klangeinstellungen mit »Synthesizer« 


natürlich auch seine Grenzen hat. Folgende Punkte sind zu 
beachten: 

1) Alle Parameter werden jeweils für alle drei Stimmen 
gleichzeitig eingestellt, denn bei nureinem Manual wäre es 
sinnlos, den verschiedenen Stimmen zum Beispiel ver¬ 
schiedene Wellenformen zu geben. 

2) Es gibt natürlich grenzenlos viele Möglichkeiten, Para¬ 
meter (zum Beispiel die Filterfrequenz) während des Erklin- 
gens eines Tones zu verändern. Ihr Einbau würde aber 
ebenfalls den Rahmen dieses Programms sprengen. 

3) Die Lautstärke ist fest auf 15 eingestellt. (Wozu hat man 
schließlich den Lautstärke-Regler am Fernseher?) 

In Tabelle 1 finden Sie übrigens einige Beispiele dafür, 
was man mit dem Programm alles machen kann. 

(Martin Ahlborn/kn) 
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24 

b2 

58 

24 

a7 

99 22 91 

43 

3390 

32 38 e9 

01 

9d 

e8 

07 48 

47 

Listing 2. 

»SYNTHESIZER - OBJ 

«ist 

3140 

ld 

ld 

ld 

ld 

22 

3b 3a 89 

cf 

3398 

20 54 34 

68 

18 

69 

28 ca 

ff 

die Maschinensprache-Routine. 
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Basic-Freunde aufgepaßt 


Hier ist ein Super-Kurs,der 
Ihnen den Einstieg in die 
faszinierende Welt der Com¬ 
puter-Programmierung leicht 


Schritt für Schritt. 


macht 

begleiten Sie 

& Ä m er sich einen C64 gekauft hat, kann auf 
H eine riesige Auswahl an Programmen zu- 
■ rückgreifen. Für fast alle denkbaren An- 
l Wendungen gibt es fertige Programme: 
Nach dem Motto »Diskette rein, und los 
geht's« erfährt man sehr schnell, welche 
™ ^ Fähigkeiten in diesem Computer stecken. 

Oft stellt man aber bei der Arbeit beispielsweise mit »sei 
ner« Textverarbeitung fest, daß eine Funktion fehlt, die 
man gerade in diesem Moment benötigt. Oder das 
Programm zur Verwaltung Ihrer Disketten ist zwar 
gut, aber Sie wollen weitere Sortiermöglich¬ 
keiten. Leicht lassen sich viele Bei¬ 
spiele finden, in denen ein fertiges 
Programm zwar hervorragende 
Leistungen bietet, individuel¬ 
len Wünschen aber nicht 
genügt. 

Spätestens in diesem Mo¬ 
ment wächst der Wunsch, 
eine Anwendung selbst 
zu programmieren. 

Diese kann den 


eigenen Wünschen optimal angepaßt werden. 
Doch viele Anfänger scheuen den Schritt zur 
Programmierung, weil sie glauben, dies sei 
für sie zu kompliziert. Leider bestärken man- 
manche Einführungsbücher dieses Vorurteil, 
wenn diese zu viele Kenntnisse vorausset¬ 
zen und eher vom Lernen abschrecken. Das 
ist bedauerlich, denn die Programmiersprache 
Basic ist gerade für den Anfänger ideal. Genau dafür ist 
diese Sprache nämlich entwickelt worden: Basic bedeutet 
»Beginners All-purpose Symbolic Instruction Code«. Frei 
übersetzt heißt das »Einsteiger-Programmiersprache für al¬ 
le Zwecke«. 

Unser Kurs will beweisen, daß dies stimmt. Er wird Ihnen 
»Schritt für Schritt« helfen, sich auf diesem für Sie neuen 
und spannenden Gebiet zurechtzufinden. Dabei ist alles so 
geschrieben, daß Sie nur ein Minimum an Voraussetzun- 
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gen mitbringen müssen. Es wäre gut, wenn Sie die ersten 
Seiten Ihres C64-Handbuches schon durchgesehen hät¬ 
ten, da wir uns hier nicht mit dem Anschluß und der Inbe¬ 
triebnahme der einzelnen Geräte beschäftigen können. Im 
übrigen haben wir versucht, unsere Erläuterungen mög¬ 
lichst allgemeinverständlich zu halten. Dies bedeutet, daß 
Fachausdrücke auf das unbedingt erforderliche Mindest¬ 
maß beschränkt bleiben sollen und in jedem Fall erklärt 
werden. 

Der Kurs beginnt ganz langsam, mit vielen einfachen 
Beispielen und Wiederholungen. Damit das auf die Dauer 
aber nicht zu langweilig wird für Sie, nimmt das Tempo bei 
späteren Lektionen allmählich zu. Wie schnell Sie Vorge¬ 
hen, bestimmen letztlich Sie. 

Seien Sie aber nicht zu ungeduldig und überfordern Sie 
sich nicht. Üben Sie ruhig den Stoff der einzelnen Lektio¬ 
nen ein wenig, bevor Sie weitergehen; so finden Sie am be¬ 
sten die für Sie geeignete Lerngeschwindigkeit heraus. Auf 
keinen Fall sollten Sie vergessen, gelegentlich eine Pause 
einzulegen; häufige kleinere Lernportionen garantieren ei¬ 
nen besseren Erfolg, als Marathonsitzungen. 

Der Kurs ist so aufgebaut, daß Sie bereits unmittelbar 
beim Durchlesen der Lektionen einzelne Aufgaben in den 
Computer eintippen und ausprobieren können. Die jeweili¬ 
gen Stellen sind im Text mit dem Zeichen » — « gekenn¬ 
zeichnet. Am besten setzen Sie sich also gleich mit diesem 
Heft vor den eingeschalteten Computer. Gerade für Anfän¬ 
ger ist die positive Eigenschaft von Basic, kleinste Pro¬ 
grammteile sofort ausprobieren zu können, von großem 
Nutzen und soll hier reichlich Anwendung finden. Damit es 
dabei dennoch geordnet zugeht, werden wir alles schön 
der Reihe nach besprechen und Ihnen auch zeigen, wie 
man ein Programm systematisch entwickelt, eben »Schritt ze on.- 
für Schritt«. 

Insgesamt besteht unser Kurs aus 34 Lektionen (siehe 
Seite 50/51). Sie werden darin die wichtigsten 
Befehle des Commodore-Basic 2.0 ken¬ 
nenlernen und üben (eine prak¬ 


tische Übersicht ist auf Seite 51). Es beginnt mit Erläuterun¬ 
gen der Tastatur und einfachen Eingabe- und Rechen¬ 
übungen. Nach Darstellung des wichtigen PRINT-Befehles 
und einiger Vorbereitungen werden wir ein erstes Pro¬ 
gramm schreiben - ein kleines Spielchen mit Zahlen. Wenn 
wir unsere Programmierkenntnisse durch weitere Befehle 
und Funktionen ausgebaut haben, machen wir uns an eine 
etwas schwierigere Aufgabe: die Programmierung eines 
Ratespiels für Begriffe; später folgt eine Simulation des be¬ 
kannten Spieles »Stadt - Land - Fluß«. Nachdem wir uns mit 
den Grundregeln der Dateiverwaltung, dem Speicherauf¬ 
bau des C 64 sowie mit der Technik von Unterprogrammen 
vertraut gemacht haben, steht uns schließlich noch die Er¬ 
stellung einer vollständigen Dateiverwaltung bevor. Als Bei¬ 
spiel haben wir eine Literaturdatei gewählt. Danach wird es 
Ihnen sicher leichtfallen, ähnliche Programme für die Ver¬ 
waltung Ihrer Adressen, Schallplatten oder Computer-Pro¬ 
gramme selbst zu schreiben. 

Gewissermaßen als Zugabe folgen dann drei Lektionen 
zu verschiedenen Arten von Funktionen aus Arithmetik, 
Geometrie und formaler Logik. 

Den Abschluß bildet eine Lektion über Fehlersuche, 
denn trotz aller Mühe werden Sie bald herausfinden, daß 
nicht immer alles auf Anhieb klappen wird. Ein Computer 
macht eben stets genau das, was man ihm sagt - und das 
ist leider nicht immer dasselbe, was man eigentlich will. Da¬ 
mit Sie also im Falle eines Falles den »Wurm« in einem feh¬ 
lerhaften Programm leichter finden 
können (im Computer- 
Englisch spricht man 
übrigens von einem 
»bug«, d.h. Wan- 
Käfer), 





verraten wir Ihnen in dieser Lektion wichtige Tricks. Nun 
aber genug der vielen Vorreden. Ich hoffe, Sie haben einen 
kleinen Vorgeschmack bekommen auf das, was Sie in un¬ 
serem Kurs erwartet. Das soll fürs erste genügen, denn jetzt 
soll’s endlich losgehen. 

1 Wie bediene ich den Computer? 


Voraussetzung für die Arbeit mit einem Computer ist eine 
Einrichtung, die dem Computer mitteilt, was er tun soll, und 
eine andere Einrichtung, um zu sehen, was er tut bezie¬ 
hungsweise was er getan hat. Dazu dient als allererstes die 
Tastatur und der Bildschirm. Weitere Eingabegeräte sind 
zum Beispiel der Joystick und die »Maus«, ein anderes 
wichtiges Ausgabegerät ist der Drucker. Wir wollen uns hier 
jedoch auf Tastatur und Bildschirm beschränken. Beide 
sind, sobald Sie den Computer einschalten, direkt mitein¬ 
ander verbunden. 

Im Handbuch Ihres C 64 haben Sie sicher schon nachge¬ 
lesen, wie die Tastatur funktioniert und wie damit Zeichen 
auf den Bildschirm gezaubert werden. Ich will das nicht im 
Detail wiederholen, aber ein paar Gedanken ist das Thema 
»Tastatur« schon wert. 

Ich teile die Tasten in drei verschiedene Typen ein: 

- Funktionstasten 

- Zeichentasten 

- Steuertasten 

Mit Funktionstasten werden die vier senkrecht unterein¬ 
ander angeordneten Tasten <F1 > bis <F7> rechts au¬ 
ßen bezeichnet. Sie sind universell für alle möglichen Funk¬ 
tionen einsetzbar, können diese Funktionen aber erst dann 
erfüllen, wenn sie entsprechend programmiert worden 
sind. Aus diesem Grund werde ich sie später behandeln, 
und ich lasse sie vorläufig links, genauer gesagt: rechts lie¬ 
gen. 

Zeichentasten erzeugen, wie ihr Name sagt, Zeichen. 
Dazu gehören Buchstaben und Zahlen, mathematische 
Zeichen (Addition, Multiplikation, runde Klammern etc.), 
Symbole (Dollar, Anführungsstrich, Pfeile und so weiter) 
und grafische Zeichen. Die grafischen Zeichen stehen übri¬ 
gens bei den älteren C 64-Geräten und beim C 128 nicht 
oben auf den Tasten, sondern auf der Vorderseite. 

Jede Zeichentaste bietet mehrere Zeichen und Symbole 
zur Auswahl. Um die verschiedenen Zeichen einer Taste 
auszuwählen und auf den Bildschirm zu bringen, verwen¬ 
den wir spezielle Tasten wie <SHIFT>, <CTRL> und so 
weiter. Diese Tasten nenne ich Steuertasten. 

Sie steuern auf sehr direkte Art und Weise alle Vorgänge 
auf dem Bildschirm. Aber sie erlauben auch, innerhalb von 
Programmen deren Abläufe zu steuern und zu verändern. 

Ich halte diese Tasten für wichtig genug, um trotz ihrer 
Behandlung im Handbuch von Commodore etwas näher 
auf sie einzugehen. 

Steuertasten sind also die CTRL-Taste, mit der die acht 
verschiedenen Zeichenfarben schwarz bis gelb eingestellt 
werden können, aber auch die SHIFT-Taste, welche den 
rechten Teil der Zeichen und grafischen Symbole umschal¬ 
tet. Dazu gehört auch die Taste links unten, die das Firmen¬ 
zeichen von Commodore trägt und welche die linken Sym¬ 
bole umschaltet. 

Dazu gehören schließlich und letztlich die Cursor- 
Steuertasten <CRSR>, die INST/DEL-Taste und die 
CLR/HOME-Taste. 

Diese letztgenannten Tasten sind eng mit der Wirkungs¬ 
weise des sogenannten Editors verbunden. 

Editor ist ein englisches Wort und heißt soviel wie Redak¬ 
teur. In unserem Fall ist der Editor ein im Computer fest ein¬ 



Nummer 

Inhalt 

Seite 

1 

Wie bediene ich den Computer 

50 

2 

Computer bedeutet Rechenmaschine 

52 

3 

PRINT - Der Universal-Befehl 

54 

4 

Was ist ein Programm 

56 

5 

Ein erstes Programmbeispiel 

57 

6 

Mehr über Stichwörter/Variable 

59 

7 

Sprünge im Programm 

61 

8 
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18 
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-- 

gebautes Programm, welches wie ein Redakteur dafür 
sorgt, daß auf dem Bildschirm alle Zeichen und Symbole in 
den entsprechenden Farben auf den richtigen Platz kom¬ 
men. 

Ein sichtbares Hilfsmittel, dem Editor unsere Wünsche 
und Vorstellungen mitzuteilen, ist der Cursor. 

Die Bedeutung und seine Handhabung haben Sie ja si¬ 
cher schon dem Handbuch entnommen. Das Wort »Cur¬ 
sor« kommt nicht vom englischen »curse« = verfluchen 
(obwohl das Verhalten des Cursors oft dazu verleitet), son¬ 
dern aL'° dem Lateinischen, wo es »Läufer« bedeutet. 

Der Cursor läuft also über den Bildschirm, gesteuert vom 
Editor. Sie können seinen Lauf auch steuern, und zwar mit 
den beiden Cursor-Steuertasten. 

Eine andere Steuerung des Cursors bietet die CLR/ 
HOME-Taste rechts oben. Allein gedrückt - dann gilt 
< HOME> - bringt sie den Cursor »nach Hause« nämlich 
in die linke obere Ecke des Bildschirms. Wird die Taste mit 
cSHIFT> umgeschaltet, bedeutet sie <CLR> - das 
heißt <CLEAR>, auf deutsch Freimachen oder Löschen. 
Jetzt wird nämlich der Cursor nach links oben gebracht und 
zusätzlich der Bildschirm gelöscht. 

Probieren Sie bitte diese Cursor-Bewegungen aus. 

—► Am besten fahren Sie den Cursor in die Mitte des Bild¬ 
schirms, tippen ein paar beliebige Buchstaben ein 
und drücken dann die HOME-Taste. 
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—► Wiederholen Sie das Ganze und verwenden Sie 
dann die CLR-Taste. 

Der Editor bietet uns noch einen anderen sehr lobens¬ 
werten Service. Er berücksichtigt nämlich, daß wir alle sehr 
menschliche Wesen sind, die nicht nur viele Fehler ma¬ 
chen, sondern auch immer wieder ihre Meinung ändern. 
Der Editor erlaubt uns, Fehler zu korrigieren oder bereits 
getippte Zeichenfolgen abzuändern. 

—► Sie können mit dem Editor ungestraft über vorhande¬ 
ne Zeichen fahren, ihn nach Lust und Laune anhalten 
und dort, wo er gerade blinkt, ein neues Zeichen ein- 
tippen. 

Ich nenne das »überschreiben«. Wo wir ein Überschrei¬ 
ben nicht anwenden können, hilft uns die INST/DEL-Taste 
(rechts oben) weiter. 

<INST> ist die Abkürzung für Insert, das heißt soviel 
wie einfügen. 

<DEL> bedeutet Delete, und das heißt entfernen oder 
auslöschen. 

Im Handbuch steht nur eine kurze Beschreibung der Wir¬ 
kung dieser Taste, die aber nicht unbedingt ausreichend ist. 
Schon erste Versuche zeigen, daß die Taste ihre Tücken 
hat. Ich bin dafür, DEL und INST einfach auszuprobieren. 
—► Schalten Sie den Computer aus und dann wieder ein. 
—► Fahren Sie mit dem Cursor auf das A von READY. Er 
steht jetzt an der dritten Stelle vom linken Bildrand. 
—► Drücken Sie die DEL-Taste. Das E ist verschwunden, 
es steht nur noch RADY da, der Cursor blinkt immer 
noch auf dem A, er ist aber jetzt an die zweite Stelle 
vom linken Bildrand gerückt. 

—► Ein zweiter Druck auf die DEL-Taste reduziert das 
Wort auf ADY, und der Cursor steht jetzt auf der ersten 
'"teile. 

Die DEL-Taste löscht also das links neben dem Cursor 
stehende Zeichen und verschiebt den Cursor mitsamt dem 
ganzen rechten Schwanz eine Stelle nach links. Was pas¬ 
siert aber, wenn der Cursor am linken Bildrand angestoßen 
ist? 

—► Ein dritter Druck auf die DEL-Taste bringt den Cursor 
an den rechten Bildrand eine Zeile darüber, nur da 
gibt es gerade nichts zu löschen. Seinen ADY-An- 
hang läßt er am Anfang der unteren Zeile zurück. 

—► Lassen Sie die DEL-Taste gedrückt. Der Cursor läuft 
kontinuierlich weiter nach links, löscht alles, was ihm 
in den Weg kommt - solange, bis er »zu Hause« links 
oben angekommen ist. 

Der geSHIFTete Teil dieser Taste, nämlich <INST>, ist 
ebenso trickreich. 

—► Schalten Sie den Computer aus und wieder ein. 

—► Fahren Sie mit dem Cursor wieder auf das A von 
READY. 

—*• Drücken Sie die INST-Taste (SHIFT + INST/DEL). 
Der Cursor bleibt auf seiner dritten Stelle vom linken 
Bildrand stehen. Aber das Zeichen, auf dem er blinkt 
und alles, was rechts von ihm steht, wird eine Stelle 
nach rechts geschoben. Wo der Cursor blinkt, ent¬ 
steht eine freie Stelle, auf die direkt ein neues Zei¬ 
chen geschrieben werden kann. 

—*■ Durch mehrfaches Drücken der INST-Taste werden 
mehrere Stellen freigeschoben, in die mehrere Zei¬ 
chen hintereinander eingefügt werden können. 

Dieses Freimachen beziehungsweise Einfügen geht 
nicht in beliebiger Länge, da der Editor gewissen Ein¬ 
schränkungen unterliegt. Ich würde natürlich am liebsten 
jetzt weiter über den Editor mit allen seinen Regeln und Ein¬ 
schränkungen dozieren. Und irgendwann muß ich es auch 
noch tun, denn beim Experimentieren werden Sie sicher 
noch darauf stoßen und wissen dann vielleicht nicht weiter. 
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Damit Sie aber nicht ungeduldig werden, möchte ich auf 
weitere Feinheiten vorläufig verzichten und das bisher Ge¬ 
lernte für die ersten Schritte in Basic anwenden. 


Merken wir uns: 

Die Zeichen- und Steuertasten erzeugen eine direkte Wir¬ 
kung auf dem Bildschirm. Der Bildschirm wird von einem 
eingebauten Programm verwaltet - dem Editor. Er ermög¬ 
licht beliebige Änderungen und Korrekturen von bereits 
eingegebenen Texten und Zahlen. 



Diese Überschrift weist uns den Weg für das weitere Vor¬ 
gehen. 

Wenn jeder simple Taschencomputer rechnen kann, 
dann müssen es die Commodore-Computer auch können. 
Dazu will ich Ihnen noch schnell die Symbole der mathema¬ 
tischen Funktionen aufschreiben, die der Computer ver¬ 
wendet. 


FUNKTION 

SYMBOL 

BEISPIEL 

Addition 

+ 

3 + 2 

Subtraktion 

_ 

3-2 

Multiplikation 

* 

3-2 

Division 

/ 

3/2 

Potenz 

t 

312 


Die unterste Funktion ist wahrscheinlich die für Sie unge¬ 
wohnteste. Das Beispiel wird im Klartext als »drei hoch 
zwei« oder als »drei Quadrat« gelesen. 

Beim Taschenrechner wird normalerweise eine Rech¬ 
nung so eingegeben: 

—*• 3 + 2 = 

Aber beim C64 rührt sich da gar nichts, außer daß diese 
Zeile auf dem Bildschirm steht. 

Und warum passiert nichts? 

Überlegen Sie - alles, was wir gemacht haben - war, per 
Tastendruck Zahlen und Symbole einzutippen. Wir haben 
lediglich den Editor auf Trab gehalten, den Computer selbst 
haben wir damit nicht aufgeweckt. 

Dieser Faulpelz schläft nämlich so lange, bis er einen 
Auftrag bekommt, etwas auszuführen. Für diesen Tritt, der 
ihn hinter dem Ofen hervorscheucht, brauchen wir eine der 


vorher zwar erwähnten, aber noch nicht eingesetzten Steu¬ 
ertasten zur Programmsteuerung. 

Sie sitzt am rechten Rand der Tastatur und ist mit 
< RETURN > gekennzeichnet. 

Schreiben wir also die Zeile von oben noch einmal. Die¬ 
ses Mal bitte ich Sie aber, nicht die Eingabe-Technik der Ta¬ 
schencomputer zu verwenden, sondern mir eine »lesbare« 
Schreibweise nachziimachen - Sie werden gleich sehen 
warum. 

Schließen Sie die Eingabe mit der RETURN-Taste ab. 
Das sieht dann so aus: 

—► SUMME =3+2 
—► Drücken Sie die RETURN-Taste 

Aber wir sehen ja noch immer nichts! 

Aller Anfang ist schwer. Wir müssen berücksichtigen, 
daß der Computer nichts, aber auch gar nichts von allein 
macht. 

Für alles braucht er eine Anweisung. Nun, oben haben 
wir ihm die Anweisung gegeben, die Summe aus 3 plus 2 


Basic-Befehl Nr. 1 PRINT 

druckt alles, was hinter dem Wort »PRINT« steht, auf dem 
Bildschirm aus. 


zu bilden. Das hat er auch gemacht, glauben Sie es mir. 
Aber wir haben ihm nicht gesagt, was er mit der Summe 
machen soll, und so hat er sie sich einfach nur gemerkt. 

Wir wollen sie natürlich auf dem Bildschirm sehen. Dazu 
müssen wir dem Computer eine spezielle Anweisung ge¬ 
ben. 

Diese-- Befehl, irgend etwas auf dem Bildschirm auszu¬ 
drucken, lautet in Basic 

PRINT. 

Nach PRINT, was auf deutsch »drucken« heißt, geben wir 
dem Computer an, was er ausdrucken soll - in unserem 
Beispiel die Summe. 

—*• PRINT SUMME 

—► Drücken Sie die RETURN-Taste. 

Heureka! Endlich sind wir weitergekommen. Auf dem 
Bildschirm steht, vom Editor in die nächste Zeile gebracht, 
die Zahl, welche der Computer für die SUMME ausgerech¬ 
net hat. 

Ich schlage vor, daß Sie mit dem ersten Wort der Sprache 
Basic, das Sie nun gelernt haben, noch ein bißchen üben. 

Bilden Sie das Produkt von 15 x 14. Das geht doch ein¬ 
fach, oder? 

—► -PRODUKT = 15 * 14 
—► nicht vergessen <RETURN> zu drücken 

(Sie wissen doch, mit RETURN geben wir dem Com¬ 
puter die Anweisung, die getippte Zeile auszuführen) 

—► PRINT PRODUKT 
—► < RETURN > drücken 

Wenn Sie gut Kopfrechnen können, dürfen Sie das Re¬ 
sultat nachprüfen. Oder vielleicht nehmen Sie einen Ta¬ 
schenrechner! 

Ich wette, irgendein Leser sagt jetzt: »Was soll der 
Quatsch. Man kann doch die Rechnung 15*14 direkt mit 
PRINT ausführen. Der Umweg über SUMME = oder PRO¬ 
DUKT = ist doch völlig unnötig«. Tja, liebe Leser, das 
stimmt in der Tat. Diese Kurzform ist erlaubt, und ich will Sie 
Ihnen gleich vorführen, vielleicht mit der Division. Wir wol¬ 
len 3 durch 2 teilen. Geben Sie dazu ein: 

—► PRINT 3/2 
—► < RETURN > drücken 

Wir erhalten sofort den Wert 1,5 - aber halt!! Er ist 1.5, also 
nicht mit Komma, sondern mit Dezimalpunkt geschrieben. 
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Das ist die amerikanische Schreibweise, an die Sie sich ge¬ 
wöhnen müssen; als Preis dafür, daß Sie mit einem ameri¬ 
kanischen Computer arbeiten. 

Also - der Befehl PRINT führt eine nachfolgende Rech¬ 
nung direkt aus und druckt das Resultat auf den Bild¬ 
schirm. Ist demnach meine oben genannte Methode, die 
Rechnung in zwei Schritten auszuführen, tatsächlich 
Quatsch? 

Meine Antwort ist ein klares Nein. Beide Methoden ha¬ 
ben ihre Berechtigung, und ich will Ihnen auch den Unter¬ 
schied zeigen. 

Mit der ersten Methode (wir haben sie bei SUMME und 
PRODUKT angewendet) erhält der Computer zuerst den 
Auftrag, eine Rechnung durchzuführen. Das Resultat 
merkt er sich unter dem Stichwort SUMME beziehungswei¬ 
se PRODUKT. Haben Sie es gelesen? Er merkt sich das 
Resultat und legt es in einem Speicher ab. Das bedeutet, 
daß wir es mit PRINT so oft wir wollen, auf den Bildschirm 
drucken können. Geben Sie jetzt gleich noch mal ein: 

—*■ PRINT SUMME 
—► < RETURN > drücken 

Und siehe da, das Resultat von vorhin erscheint wieder. 
Dasselbe geht mit dem Stichwort PRODUKT. 

Sie brauchen übrigens die Zeile nicht neu einzugeben. 
Vergessen Sie den Service des Editors nicht! 

—► Fahren Sie mit dem Cursor auf die letzte PRINT-Zeile 
und überschreiben Sie das Wort SUMME mit dem 
Wort PRODUKT, dann muß nur noch die RETURN- 
Taste gedrückt werden. 

Und noch einmal siehe da, wir erhalten das Resultat der 
Multiplikation wieder. 

So, und was ist mit der Division? 

Leider, leider! Da geht nichts mehr. Wir haben kein Stich¬ 
wort für das Resultat vorgegeben, und der Computer hat 
sich auch nichts gemerkt. 


Das ist also der Unterschied: 


• PRINT 3 + 2 

• SUMME = 3 + 2 

• PRINT SUMME 

Das Resultat der Rechnung 
wird ausgedruckt 

Das Resultat der Rechnung wird 
unter dem Stichwort SUMME ge¬ 
speichert und dann ausgedruckt 


Die linke Anwendung des Befehls PRINT ist einfach, und 
Sie können sie immer verwenden, um nach Art des Ta¬ 
schenrechners schnell einmal irgendwelche Rechnungen 
zu machen. Aufgezeichnet wird das Resultat allerdings nur 
auf dem Bildschirm. Im Computer selbst bleibt nichts ge¬ 
speichert. 

Die rechte Art ist schwieriger, aber interessanter. Es ist ei¬ 
gentlich erstaunlich, daß wir dem Computer die Anweisung 
geben, sich eine Zahl unter einem Namen oder - wie ich es 
vorhin genannt habe - unter einem Stichwort zu merken, 
ohne einen Basic-Befehl geben zu müssen. 

Es gibt tatsächlich einen Befehl dafür, er heißt: 

LET 

Die Anweisung mit dem Stichwort »SUMME« sieht unter 
Zuhilfenahme des Befehls LET so aus: 

LET SUMME =3 + 2 

In unseren Sprachgebrauch übersetzt heißt das unge¬ 
fähr: »Laß die Summe gleich dem Resultat von 3 plus 2 
sein«. In der Computersprache nennt man das eine ZU¬ 
WEISUNG. 

Wir können demnach beliebige Stichwörter hernehmen 
und ihnen mit dem LET-Befehl Zahlenwerte zuweisen, der 
Computer merkt sie sich alle. 


Wie würden Sie zum Beispiel dem Stichwort A (kürzer 
kann es nicht sein) den Wert 375 zuweisen, dann dem 
Stichwort X den Wert 15 und schließlich die Division von 
vorhin, die der Computer sich nicht gemerkt hat, jetzt 
dauerhaft durchführen? 

Versuchen Sie es: 

So muß es ausselnen: 

—► Löschen Sie den Q?l'dschirm (<SHIFT> + 

< CLR/HQtöT>) 

—*• LET A = 3V5 (< SETUJtN > drücken) 

—*• LET X = 15 (<RÜTÜRN> drücken) 

—► LET QUOTIENT = 3/2 (<RETURN> drücken) 

Jetzt sind im Computer die zwei Werte unter den Stich¬ 
worten A, X und das Ergebnis der Division unter dem Na¬ 
men QUOTIENT gespeichert. 

Mit PRINT-Befehlen können wir alle drei auf den Bild¬ 
schirm bringen: 

—► PRINT A (<RETURN> drücken) 

—*• PRINT X (< RETURN> drücken) 

—*• PRINT QUOTIENT (< RETURN> drücken) 

SUMME, PRODUKT, A, X und QUOTIENT, die wir bisher 
»Stichwörter« oder »Namen« genannt und welchen wir mit 
dem LET-Befehl einen Wert zugewiesen haben, werden 
mit einem eigenen Fachausdruck bezeichnet. 

Sie heißen Variable. Ich werde später noch mehr über sie 
berichten. Zunächst bitte ich Sie lediglich, sich den Namen 
zu merken - manchmal werde ich vielleicht auch noch ein 
Stichwort sagen. 

Wozu brauchen wir den Befehl »LET« ? Am Anfang haben 
wir ohne ihn den Stichwörtern Resultate zugewiesen! 

In Basic kann in der Tat der Befehl LET weggelassen wer¬ 
den. Wichtig ist lediglich, daß zuerst die Variable dasteht, 
gefolg' von dem Gleichheitszeichen (=) und dahinter der 
Wert (oder der durch die Rechnung auszurechnende Wert). 


Basic-Befehl Nr. 2 LET 

weist einer Variablen einen Wert zu. Er kann auch wegge¬ 
lassen werden. Es genügt der Name der Variablen, ein 
Gleichheitszeichen und der zugewiesene Wert. 


interessant ist übrigens, daß der Computer sich ein und 
dasselbe Stichwort nur einmal merkt. Wenn Sie zuerst dem 
Stichwort QUOTIENT den Wert 3/2 zuweisen und gleich da¬ 
nach den Wert 15/3, erhalten Sie mit dem PRINT-Befehl 
nicht die Zahl 1.5, sondern 5. 

Das erste Resultat hat der Computer in seinem Speicher 
durch das zweite überschrieben. Probieren Sie es aus$; 
—► PRINT QUOTIENT (<RETURN> drücken) 

—► LET QUOTIENT = 15/3 (< RETURN > durften)/ 

—► PRINT QUOTIENT (<RETURN> drücken) 

Zuerst kommt der alte Quotient von vorhin, danach der 
neue Wert. 


Merken wir uns: 

1. Nicht nur wir können Zeichen auf den Bildschirm brin¬ 
gen - der Computer selbst kann das auch. Der Befehl 
PRINT druckt alles, was dahintersteht, auch Ergebnis¬ 
se von Rechenanweisungen, auf den Bildschirm. 

2. Unter einem Stichwort (Variable genannt) kann sich der 
Computer Zahlenwerte merken, die beliebig oft mit dem 
PRINT-Befehl ausgedruckt werden können. Vorausset¬ 
zung ist lediglich, daß mit dem LET-Befehl dem Stich¬ 
wort der Zahlenwert zugewiesen wird. Das Wort »LET« 
selbst kann auch weggelassen werden. 
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PRINT - der Universalbefehl 


3.1 Zahlenwerte ausdrucken 

Bisher haben wir nur Zahlenwerte und zugehörige Varia¬ 
ble mit PRINT auf dem Bildschirm ausgedruckt. 

Ist Ihnen das viele PRINT-Tippen, sowie bei den Beispie¬ 
len oben, auch so lästig wie mir? 

Diesen Dauerversuch mit unzähligen PRINT-Befehlen 
können Sie vereinfachen. Alle Commodore-Computer sind 
nämlich Meister der Abkürzung. So drastisch, wie wir den 
Befehl LET durch Weglassen abgekürzt haben, dürfen wir 
den Befehl PRINT nicht behandeln. Aber immerhin: Er wird 
mit dem Fragezeichen abgekürzt. 

Das Befehlswort »PRINT« kann durch das »?« ersetzt 
werden. 

Statt PRINT 123 

dürfen Sie schreiben ? 123 

Machen Sie bitte Gebrauch von dieser Abkürzung, wann 
immer Sie wollen. 

Ich werde allerdings stets das ganze Befehlswort ver¬ 
wenden, damit der Text gut lesbar bleibt. 

Die Sprache Basic gewährt uns noch eine Marsch¬ 
erleichterung. Es ist nämlich erlaubt, mehrere auszu¬ 
druckende Werte hinter einen einzigen PRINT-Befehl zu 
setzen. 

Zuerst will ich Ihnen zeigen, wie Sie es nicht machen dür¬ 
fen - probieren geht über studieren. 

Haben Sie die alten Stichwörter noch im Computer? 
Wenn ja, dann brauchen Sie die folgenden Zuweisungen 
nicht noch mal eingeben. Ich wiederhole sie für alle Leser, 
die inzwischen ihren Computer ausgeschaltet und damit 
sein Gedächtnis gelöscht haben. 

—► A = 375 (<RETURN> drücken) 

—► X = 15 (< RETURN> drücken) 

—► QUOTIENT = 15/3 (<RETURN> drücken) 

Sie sehen, ich habe LET weggelassen. 

So, die Werte haben ihr Stichwort, unter dem sie der 
Computer in seinem Speicher wiederfindet. Jetzt wollen 
wir sie mit einem einzigen PRINT-Befehl ausdrucken: 

—► PRINT A X QUOTIENT (<RETURN> drücken) 

Der Computer druckt eine Null aus. Wie gesagt, so geht’s 
nicht. 

Wenn ich Ihnen sage, warum eine Null erscheint, werden 
Sie gleich auf die Lösung des Problems kommen. Was pas¬ 
siert da? 

Für den Computer ist eine Leerstelle (zwischen den Va¬ 
riablen) genauso ein Zeichen wie jeder Buchstabe. Das 
heißt, daß er nach dem Drücken der RETURN-Taste in sei¬ 


nem Speicher nach einem Stichwort »A X QUOTIENT« 
sucht - und das findet er natürlich nicht. 

Ihnen ist sicher klar, daß wir also die drei Stichwörter von- 
einandertrennen müssen. Die Rechtschreibregeln von Ba¬ 
sic erlauben keine Wörtertrennung mit Leerzeichen, son¬ 
dern mit dem Semikolon »;«. 

Verbessern Sie bitte (durch einfaches Einfügen von zwei 
Semikolons) die letzte Zeile oben: 

—► PRINT A;X;QUOTIENT (<RETURN> drücken) 

Jetzt stimmt’s. 

Bei diesem Beispiel kann ich Ihnen noch etwas zeigen, 
diesmal eine Eigenheit - oder besser gesagt - eine Vorsor¬ 
ge des guten alten Editors. Schauen Sie sich genau an, wie 
der Editor die drei Zahlen 375,15 und 5 auf den Bildschirm 
geschrieben hat. Vor der ersten Zahl steht eine Leerstelle, 
zwischen den Zahlen sind zwei Leerstellen. 

Das kommt daher, daß der Editor vor jeder Zahl eine Stel¬ 
le reserviert, um im Fall einer negativen Zahl Platz für das 
Minuszeichen zu haben. Und zwischen den Zahlen hält er 
natürlich einen Abstand frei. Wie bereits gewohnt, wollen 
wir das am Computer überprüfen. 

—► Bitte geben Sie die drei Werte unserer Variablen als 
negative Zahlen, also mit einem Minuszeichen ein. 
Wenn Sie die Zuweisungen noch auf dem Bildschirm 
stehen haben, geht es schneller mit Hilfe des Editors. 
Fahren Sie mit dem Cursor auf die jeweils vorderste 
Ziffer, schaffen Sie mit der INSERT-Taste (< SHIFT> 
+ <INST/DEL>) eine Leerstelle und tippen Sie ein 
Minuszeichen ein, danach wie immer ein 
<RETURN>. 

Fahren Sie mit dem Cursor auf die Zeile mit dem 
PRINT-Befehl und drücken Sie die RETURN-Taste. 

Ja, de:- Editor macht es uns wirklich sehr bequem. Und 
jetzt sehen Sie auch, daß die reservierten Plätze im Ergeb¬ 
nis von den Minuszeichen belegt worden sind. Was bleibt, 
sind lediglich die Abstände - der guten Lesbarkeit zuliebe. 

Das Semikolon ist nicht das einzige Symbol zur Tren¬ 
nung von Variablen hinter einem PRINT-Befehl. Die von 
Commodore verwendeten Versionen von Basic erlauben 
auch das Komma - allerdings hat es eine etwas andere Wir¬ 
kung als das Semikolon. 

—► Ersetzen Sie in der Zeile oben, welche den »dreifa¬ 
chen« PRINT-Befehl enthält, die zwei Semikolon 
durch Komma (direkt durch Überschreiben). 
< RETURN > nicht vergessen! 

Wir sehen jetzt wieder die drei Zahlen, aber viel weiter 
auseinandergerückt. 

Dabei wird der Bildschirm sozusagen in vier Teile geteilt. 
Die ausgedruckten Werte beginnen am linken Rand, dann 
ab dem 10., 20., und 30. Platz. 

Merken wir uns: 

Hinter einem einzigen PRINT-Befehl können mehrere Wer¬ 
te auf einmal ausgedruckt werden. Sie müssen entweder 
durch ein Semikolon oder ein Komma getrennt sein. 

Das Semikolon bewirkt bei Zahlen einen »normalen« Ab¬ 
stand von zwei Leerstellen. 

Das Komma verschiebt die Werte auf das nächste Bild¬ 
schirm-Viertel. 


3.2 Buchstaben und Zeichen ausdrucken 

Was macht der PRINT-Befehl mit allen anderen Zeichen 
und Symbolen? Versuchen Sie es ruhig einmal. Fangen Sie 
mit den Tasten links oben an und arbeiten Sie sich durch. 

Schon bei dem PRINT-Befehl der allerersten Taste, näm¬ 
lich dem Symbol »Pfeil nach links«, reagiert der Computer 
unerwartet. 
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—► PRINT - (<RETURN> drücken) 

ergibt eine englische Meldung auf dem Bildschirm: 

SYNTAX ERROR 
READY 

Mit der Meldung »SYNTAX ERROR« sagt uns der Com¬ 
puter, daß wir einen Rechtschreib- oder Satzbaufehler be¬ 
gangen haben. Das Zeichen»—« darf zum Beispiel nicht so 
einfach mit einem PRINT-Befehl verwendet werden. 

Alle mathematischen Zeichen, Interpunktionen, die 
geSHIFTeten Symbole der Zifferntasten und andere reagie¬ 
ren in dieser Form. 

Andere wieder, wie zum Beispiel mit SHIFT- oder Com- 
modore-Taste (CBM-Taste) umgeschaltete Buchstaben 
(auf die auf der Vorderseite der Tasten angegebenen Gra¬ 
fiksymbole), ergeben gar keine Reaktion. 

Den PRINT-Befehl mit Buchstaben haben wir ja schon 
mehrfach verwendet. In dem Beispiel ganz oben hat er al¬ 
lerdings nicht den Großbuchstaben A, sondern den Zahlen¬ 
wert ausgedruckt, der unter dem Kennbuchstaben A im 
Computer gespeichert worden ist. 

Versuchen Sie es mit einem anderen Buchstaben oder 
Wort, welchem wir noch keinen Wert zugewiesen haben, 
zum Beispiel: 

—► PRINT WORT (<RETURN> drücken) 

Wir erhalten eine Null. 

Das heißt nichts anderes, daß der PRINT-Befehl schlicht 
und einfach jeden Buchstaben bzw. jede Buchstabenfolge 
als ein Stichwort - als eine Variable - interpretiert und deren 
Wert im Speicher sucht, um sie auszudrucken. Haben wir 
ihr noch keinen Wert zugewiesen, wie in unserem letzten 
Beispiel dem Wort »WORT«, dann druckt er eine Null aus. 

Wenn der für den Bildschirm zuständige Editor (ein fest 
eingebautes Computerprogramm) bereitwillig alle Buch¬ 
staben druckt, die wir direkt mit der Tastatur eingeben, 
dann muß es der Computer mit dem PRINT-Befehl auch 
können. 

Die Lösung für unser Problem könnte man als zungen¬ 
brechendes Kochrezept so hinschreiben: 

Um dem Computer mitzuteilen, daß das Wort »WORT« 
ein Wort sein soll, muß man "WORT" schreiben. Das Ge¬ 
heimnis liegt im Gebrauch der Anführungszeichen! 

—► PRINT "WORT" (<RETURN> drücken) 

FürZeichen, Zahlen, Buchstaben, kurz für alles, was zwi¬ 
schen zwei Gänsefüßchen steht, verwendet die Computer¬ 
sprache ein eigenes Wort: Zeichenkette oder auf englisch: 
String. 

Strings sind demnach auch alle grafischen Symbole der 
Buchstabentasten, die auf der Vorderseite der Tasten zu se¬ 
hen sind. Auch sie kann man per PRINT auf den Bildschirm 
bringen. 

Für die linken Symbole müssen wir mit der Taste gleich¬ 
zeitig die Commodore-Taste (unten ganz links), für die rech¬ 
ten Symbole die SHIFT-Taste drücken. 

Die Schwierigkeit liegt nun darin, daß ich Ihnen im Text 
des Kurses diese speziellen Symbole nicht ohne weiteres 
angeben kann. Diese Commodore-spezifischen Zeichen 
und Symbole hat das Fotosatzsystem, mit dem dieses Heft 
erstellt wurde, verständlicherweise nicht zur Verfügung. 

Daher werde ich an ihrer Stelle folgende Symbole an¬ 
wenden: 

- für die SHIFT-Taste <SHIFT> 

- für die Commodore-Taste < CBM > 

- (SHIFT W) bezeichnet das Symbol vorn rechts auf der 
W-Taste 

- <CBMZ> bezeichnet das Symbol vorn links auf der 
Z-Taste 

Ich zeige Ihnen die Verwendung dieser Symbole am be¬ 
sten an einem Beispiel: 

—► PRINT "<SHIFT U> <SHIFT I>" 


(< RETURN> drücken) 

dann druckt der Computer aus den beiden Viertelkreisen 
der U- und I-Taste einen Halbkreis aus. 

Noch ein Beispiel: 

—»• PRINT " <CBM QXCBM W> " 

(< RETURN> drücken) 

ergibt ein großes H. 

Die Schreibweise zwischen Anführungszeichen erlaubt 
uns, nicht nur Buchstaben und deren umgeschaltete grafi¬ 
sche Zeichen, sondern auch Ziffern und alle Symbole aus- 
zuPRINTen. 

Verzeihen Sie mir bitte dieses saloppe Computer¬ 
deutsch. Im Grunde ist es ja nicht sehr schön, was wir da 
mit der deutschen Sprache machen, und ich müßte mich ei¬ 
gentlich schämen, daß ich derartige Wortschöpfungen ver¬ 
wende. Aber abgesehen davon, daß Computerdeutsch ge¬ 
wisse Vorgänge sehr kurz und präzise ausdrückt, verteidi¬ 
ge ich mich gern damit, daß andere Gruppen unserer Ge¬ 
sellschaft ja auch ihre eigenen Ausdrücke haben, wie die 
Segler, Musiker und Jäger. Bei den letzteren meine ich na¬ 
türlich nicht das Jägerlatein. 

Wo waren wir stehengeblieben? Ach ja, beim PRINTen 
von Ziffern und Symbolen als Strings. 

—► PRINT "()" (<RETURN> drücken) 

Diese Anweisung druckt die beiden Klammern ohne 
SYNTAX ERROR aus. Alle Pfeile, Sterne, Interpunktionen 
und arithmetischen Symbole sind willig ausdruckbar, wenn 
sie in Anführungszeichen eingepackt sind. 

Apropos Interpunktionen! Wir haben gelernt, daß mit 
dem Semikolon Stichwörter (Variable) voneinander ge¬ 
trennt werden können, selbst wenn sie hintereinander bei 
derselben PRINT-Anweisung stehen. 

Zwischen Anführungszeichen verlieren sie diese Wir¬ 
kung; ; e sind dann nichts anderes als grafische Zeichen. 
Geben Sie ein: 

—*• A = 3 ( < RETURN > ) 

— ► B = 12 (< RETURN >) 

—► C = 17 (<RETURN>) 

—► PRINT A;B;C; "A;B;C" ( <RETURN> ) 

Zuerst wird der Wert der drei Variablen A, B und C neben¬ 
einander ausgedruckt, gefolgt von den fünf Symbolen zwi¬ 
schen den Anführungszeichen. 

Mit dem Komma und seiner verschiebenden Wirkung ist 
es ebenso. 

Und Ziffern? Ziffern gehen auch, aber sie gingen ja vor¬ 
her schon, ohne Anführungszeichen. 

Da ist aber ein ganz kleiner Unterschied. Passen Sie auf: 
—*• PRINT 123 (< RETURN >) 

—► PRINT "123" (< RETURN >) 

- Der erste PRINT-Befehl versteht die Ziffern 123 als Zahl 
und reserviert, wie früher schon besprochen, eine Stelle 
vorher für das Vorzeichen. 

- Der PRINT-Befehl mit Anführungszeichen versteht die 
Ziffern 123 als String, der natürlich kein Vorzeichen 
braucht und daher auch keine Platzreservierung be¬ 
kommt. 

Dieser feine Unterschied ist recht wichtig, wenn Zahlen¬ 
tabellen oder Zahlengrafiken erzeugt werden sollen. Wir 
stoßen später sicher noch darauf. 

Bevor ich ein weiteres Fazit ziehe, möchte ich Ihnen eine 
vorläufig letzte Anwendung des PRINT-Befehls zeigen. 

Wir haben gesehen (und angewendet), daß eine auf den 
Bildschirm geschriebene Zeile erst dann zu einem Befehl 
für den Computer wird, wenn sie mit dem Drücken der 
RETURN-Taste »abgeschlossen« wird. Wir haben daher 
immer nur einen einzigen Befehl in eine Zeile geschrieben. 
Die Frage stellt sich natürlich: 

Können wir mehrere Befehle in 
eine einzige Zeile schreiben?? 
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Wie immer - probieren geht über studieren! Geben Sie 
ein: 

—► PRINT "1.BEFEHL" PRINT "2.BEFEHL" 

—► drücken Sie die RETURN-Taste 

Nun, SYNTAX ERROR sagt uns, daß diese Schreibweise 
nicht erlaubt ist. 

Wie bei mehreren Variablen brauchen wir bei mehreren 
Befehlen auch ein Symbol zur Trennung. Bei Befehlen ist 
dies der Doppelpunkt. Fügen Sie bitte zwischen die beiden 
PRINT-Befehle oben einen Doppelpunkt ein und drücken 
Sie noch mal auf Return. 

Es muß also da stehen: 

—► PRINT "1.BEFEHL" : PRINT "2.BEFEHL" 

Jetzt stehen die beiden »Befehle« ausgedruckt da - un¬ 
tereinander! 

Durch den Doppelpunkt werden die zwei PRINT-Befehle 
so behandelt, als stünden sie in zwei getrennten Zeilen. 

Und damit wird auch unsere anfängliche Rechnerei we¬ 
sentlich einfacher - ich hoffe, Sie erinnern sich noch. Sonst 
schauen Sie bitte noch mal am Anfang nach. 

Für die Berechnung der Summe 3 + 2 brauchen wir nur 
eine Zeile: 

—► SUMME = 3 + 2 : PRINT SUMME 
(< RETURN> drücken) 

Damit soll's erstmal genug sein. Ich glaube, Sie haben 
jetzt eine ganze Reihe von Regeln gelernt, die für die ersten 
Schritte der Programmierung eines Commodore-Compu- 
ters sehr wichtig sind. Vielleicht wollen Sie sich nun eine 
kleine Pause gönnen und zwischendurch Ihr Geschick an 
einem Computerspiel ausprobieren. Viel Spaß und bis 
gleich! 


Merken wir uns: 

1. Buchstaben werden vom PRINT-Befehl als Variable ein¬ 
gestuft, und entsprechend wird ihr Wert ausgedruckt. 

2. Ziffern und Zahlen werden vom PRINT-Befehl als arith¬ 
metische Ausdrücke gewertet und erhalten dementspre¬ 
chend ein Vorzeichen. Das positive Vorzeichen wird 
nicht ausgedruckt, eine Leerstelle ist dafür vorhanden. 

3. Alle Symbole der Tastatur, welche zwischen Anfüh¬ 
rungszeichen stehen, werden vom PRINT-Befehl als 
grafische Zeichen erkannt und formgetreu ausgedruckt. 
Sie werden Zeichenketten beziehungsweise Strings 
genannt. 

4. Um mehrere Befehle in eine einzige Zeile schreiben zu 
können, müssen sie durch einen Doppelpunkt vonein¬ 
ander getrennt sein. 

5. Schreibfehler oder inkorrekte Anweisungen quittiert der 
Computer mit der Fehlermeldung SYNTAX ERROR. 


4 Was ist ein Programm? 


Bislang haben wir den Computer so benutzt, als wäre er ein 
Taschenrechner. 

Wir haben alle Angaben, Befehle und so weiter direkt ein¬ 
getippt; und der Computer hat sie nach dem Drücken der 
RETURN-Taste direkt ausgeführt. 

Ich habe mit Absicht das Wort direkt gleich zweimal ver¬ 
wendet. Diese Art des Betriebs wird nämlich Direkt-Modus 
genannt. 

Im Gegensatz dazu steht der sogenannte Programm- 
Modus. 

Jetzt also taucht das Schlagwort Programm zum ersten 
Mal auf. Haben Sie schon sehnlich darauf gewartet? Es wä¬ 
re kein Wunder, wollen wir doch Programmieren lernen. 


In meinem alten Konversationslexikon steht unter Pro¬ 
gramm: Festfolge. Sie wissen, was damit gemeint ist, näm¬ 
lich eine detaillierte Angabe der einzelnen Darbietungen 
und Aktivitäten einer Veranstaltung in ihrer genauen zeitli¬ 
chen Reihenfolge. Denken Sie an das Programm in einem 
Zirkus. 

Diese Definition läßt sich gut auf einen Computer über¬ 
tragen. 

Wenn ein Computer viele Befehle in einer bestimmten 
Reihenfolge nacheinander ausführen soll, müssen sie ihm 
als »Festfolge« vorgegeben sein. Diese Festfolge muß er 
auswendig kennen - was für ihn kein Problem bedeutet, be¬ 
sitzt er doch ein gutes Gedächtnis. 

Dieses »Gedächtnis« haben wir ja schon kennengelernt. 
Die im Direkt-Modus eingegebenen Werte von Stichwör¬ 
tern (Variablen) hat er in seinem Speicher festgehalten, und 
wir konnten sie jederzeit abfragen. 

Ein Computer hat aber auch einen Programm-Speicher, 
in welchem er ein aus mehreren Befehlen bestehendes 
Programm festhält. 

Alles, was wir tun müssen, ist, ihm die Befehle und ihre 
Reihenfolge einzugeben. Wie tun wir das? 

Die Angabe der Reihenfolge ist sehr simpel. Wir geben 
einfach jeder Zeile, in der ein oder mehrere Befehle stehen, 
eine Nummer. 

Die Eingabe der Befehle geht genauso wie vorher - mit 
der RETURN-Taste. Nur-vorher hat der Computer den Be¬ 
fehl sofort ausgeführt. Wenn aber eine Nummer davor¬ 
steht, dann führt er den Befehl nicht aus, sondern steckt ihn 
in seinen Programmspeicher. 

Das machen wir jetzt gleich einmal. Geben Sie bitte un¬ 
sere allerersten Rechenanweisungen mit Zeilennummern 
ein: 

—*- 1 SUMME = 3 + 2 ( <RETURN> ) 

—► 2 PRINT SUMME (< RETURN >) 

Siehe da, er hat nichts ausgeführt, und ich behaupte, die¬ 
ses kleine Programm steht jetzt im Programmspeicher. 

Ich kann das auch beweisen. Es gibt einen Befehl in Ba¬ 
sic, der alles, was im Programmspeicher steht, in der Rei¬ 
henfolge der Zeilennummern auf dem Bildschirm aus¬ 
druckt. Er heißt 

LIST 

was auf deutsch soviel wie »auflisten« bedeutet. 

—► Löschen Sie den Bildschirm mit der CLR-Taste 
—► Tippen Sie direkt das Wort LIST ein und drücken Sie 
die RETURN-Taste. 

Die beiden Anweisungen samt Nummer erscheinen auf 
dem Bildschirm. Was zu beweisen war. 
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Basic-Befehl Nr. 3 LIST 

- druckt den Inhalt des Programmspeichers auf dem Bild¬ 
schirm aus. 

- Durch Angabe der Nummer oder eines Nummernberei¬ 
ches können einzelne Befehle oder bestimmte Pro¬ 
grammteile separat ausgedruckt werden. 

- Durch den Befehl LIST wird das Programm nicht ge¬ 
löscht. 


Den ersten Satz dieser Befehlsbeschreibung haben wir 
ja schon praktiziert. Den zweiten Satz möchte ich vorläufig 
erst mal so stehenlassen. Zu seiner Erprobung brauchen 
wir längere Programme und die haben wir vorerst noch 
nicht. 

So, unser Programm, bestehend aus zwei Befehlen, hat 
der Computer gespeichert. Jetzt soll er es ausführen! 

Unsere alte Methode, den Computer hinter dem Ofen 
hervorzuscheuchen, war der Tritt mit der RETURN-Taste. 
Diese bringt uns hier aber überhaupt nichts. Was wir brau¬ 
chen ist ein Befehl, der den Computer veranlaßt, das Pro¬ 
gramm auszuführen. Ein derartiger Befehl wird uns von Ba¬ 
sic geboten. Er heißt 

RUN 

was mit »loslaufen« übersetzt werden könnte. 


Nun sollten wir uns schleunigst an ein längeres Pro¬ 
gramm wagen. Natürlich verwenden wir nur Dinge, die wir 
bisher schon verwendet beziehungsweise besprochen ha¬ 
ben. 



Basic-Befehl Nr. 4 RUN 

startet ein im Programmspeicher des Computers be¬ 
findliches Programm. 

Mit RUN wird ein Programm nicht gelöscht. Der RUN- 
Befehl kann beliebig oft wiederholt werden. 


—► Tippen Sie direkt das Wort RUN ein und drücken Sie 
die RETURN-Taste. 

Und wie der Blitz, so schnell können Sie gar nicht schau¬ 
en, steht das Resultat auf dem Bildschirm. 

Na ja, sagen vielleicht einige Skeptiker unter Ihnen, im 
Direkt-Modus vorhin ging das auch nicht viel langsamer, 
besonders die Einzeiler-Version mit dem Doppelpunkt. 

Richtig, aber wir haben ja nur zwei Befehle verwendet. 
Nehmen Sie mal 20 Befehle, da sieht die Sache schon an¬ 
ders aus. Abgesehen von der Geschwindigkeit gehen die 
überhaupt nicht in eine Zeile - und was dann? 


Merken wir uns: 

1. Der Computer hat einen Speicher mit mehreren ge¬ 
trennten Bereichen. Alle Variablen und ihre jeweiligen 
Werte stehen im Variablenspeicher. Programmzeilen 
stehen im Programmspeicher. 

2. Immer wenn die RETURN-Taste gedrückt wird, über¬ 
prüft der Computer die Zeile, in der sich gerade der Cur¬ 
sor befindet. Beginnt die Zeile mit einer Nummer, wird 
sie als Programmzeile erkannt und im Programmspei¬ 
cher abgelegt. 

Hat sie keine Nummer am Anfang, dann führt sie der 
Computer im Direkt-Modus sofort aus. 

3. Mit dem Basic-Befehl LIST werden alle im Programm¬ 
speicher stehenden Zeilen in Reihenfolge der aufstei¬ 
genden Zeilennummern auf dem Bildschirm ausge¬ 
druckt. 

4. Ein Programm wird mit dem Basic-Befehl RUN gestar¬ 
tet. 


5 Ein erstes Programmbeispiel 


Zuerst brauchen wir einen Plan, was programmiert oder 
bessc: gesagt, was vom Computer gemacht werden soll. 
Ich schlage dazu eine Aufgabe mit folgenden Teilen vor: 

1. Unter dem Stichwort A sollen zwei Zahlen multipliziert 
werden 

2. Unter dem Stichwort B sollen zwei Zahlen dividiert wer¬ 
den 

3. Das Stichwort C sei die Differenz der Werte von A und 
von B 

4. Der Wert von A soll nicht als Zahl, sondern als Gleichung 
ausgedruckt werden. 

5. Auch der Wert von B soll als Gleichung ausgedruckt wer¬ 
den. 

6. Dann folgt eine Textangabe, wie der Wert von C berech¬ 
net wird. Dabei sollen im Text die jeweiligen Werte von A 
und B automatisch eingesetzt werden. 

7. Als letztes wird auch der Wert von C als Gleichung aus¬ 
gedruckt. 

Das klingt schlimmer, als es ist. Wir müssen es einfach 
Schritt für Schritt angehen. 

Für den Punkt 1 nehmen wir die Zahlen 24 und 3 
— *• 1 A = 24 * 3 ( < RETURN > ) 

In dieser Zeile mit der Nummer 1 weisen wir dem Stich¬ 
wort A das Resultat der Multiplikation von 24 x 3 zu. Wir hät¬ 
ten das auch mit dem Basic-Befehl LET machen können, 
aber wie gesagt, man kann ihn weglassen. 

Punkt 2 verlangt etwas Ähnliches, wir nehmen die Zah¬ 
len 16 und 8. 

—♦ 2 B = 16/8 ( < RETURN > ) 

Auch Punkt 3 macht keine Ausnahme, nur verwenden wir 
jetzt statt absoluter Zahlen die Stichwörter A und B. Der 
Computer muß selbst im Lauf des Programms die Werte für 
A und B im Speicher heraussuchen und einsetzen. 

—► 3 C = A - B ( < RETURN > ) 

Bis hierhin war alles so wie gehabt. Im Punkt 4 soll der 
Wert von A, also das Resultat aus Zeile 1, als »Gleichung« 
ausgedruckt werden. 
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Was ich damit meine, ist schnell gesagt. Der Befehl 
PRINT A würde nur den Zahlenwert von A auf den Bild¬ 
schirm bringen. Ich möchte aber, daß das Programm diese 
fünf Zeichen hinschreibt: 

A = 72 

Wie erreichen wir das ? 

Nun, die Zahl 72 ist der Wert von A, mit PRINT A zu erzie¬ 
len. Davor steht ein Text! Damit der PRINT-Befehl »A =« 
hinschreibt, müssen wir das als String schreiben, das heißt 
wir müssen den Anführungszeichen-Modus anwenden. 
Das sieht dann so aus: 

—► 4 PRINT "A =" A (<RETURN>) 

Was zwischen den Anführungszeichen steht, druckt der 
Computer so aus, wie es ist. Das zweite A steht nackt da, 
also ist es ein Stichwort, dessen Wert der Computer direkt 
hinter den Text »A =« setzt - mit Vorzeichenstelle natürlich. 

Wenn Sie es nicht glauben, oder es sich nicht vorstellen 
können, lassen Sie doch diesen ersten Teil des Programms 
gleich einmal laufen. Zur besseren Übersicht löschen Sie 
zuerst den Bildschirm mit der CLR-Taste. 

Keine Angst, es wird nur der Bildschirm gelöscht, aber 
nicht das Programm im Programmspeicher. Um das nach¬ 
zuprüfen, LISTen Sie es aus. Wenn das Programm schön 
dasteht, lassen Sie es mit RUN und RETURN-Taste laufen. 

Auf Ihrem Bildschirm steht jetzt unter der Programm- 
Liste: 

A = 72 

Das ist also das Resultat der Zeile 4. Genauso machen 
wir es mit dem Punkt 5. 

—► 5 PRINT "B = " B (<RETURN>) 

Punkt 6 ist reiner Text, den ich in zwei PRINT-Befehle auf¬ 
teile, damit der Text in zwei getrennten Zeilen steht. 

—► 6 PRINT "C IST A MINUS B, " (<RETURN>) 

—► 7 PRINT "DAS HEISST," A "WIRD UM" B 

"VERRINGERT." (< RETURN >) 

Zeile 6 besteht aus reinem Text - alles steht zwischen An¬ 
führungszeichen. Zeile 7 ist wieder etwas komplizierter, 
aber sie enthält im Grunde genommen nichts anderes als 
die Zeilen 4 und 5 vorher. Man muß nur die Anführungszei¬ 
chen richtig abzählen. Zwischen den ersten beiden wird 
Text ausgedruckt, inklusive dem Komma. Dann folgt der 
Wert der Variablen A - ohne Anführungszeichen natürlich. 
Zwischen den nächsten beiden Textteilen steht wieder ein¬ 
sam das Stichwort B, dessen Wert der Computer suchen 
und hier einsetzen muß. 

Auch jetzt ist es Ihnen schon erlaubt, einen vorläufigen 
Probelauf zu machen-. 

Schließlich führen wir noch Punkt 7 aus, wofür wir wieder 
die Methode der Zeilen 4 und 5 anwenden: 

—► 8 PRINT "C =" C (<RETURN>) 

Es empfiehlt sich immer, ein Programm noch mal als 
Ganzes aufzuLISTen. Also: Bildschirm löschen und LIST 
eingeben. 

Wir sehen dann auf dem Bildschirm: 

1 A = 24 #' 3 

2 B = 16/8 

3 C = A - B 

4 PRINT "A =" A 

5 PRINT "B =" B 

6 PRINT "C IST A MINUS B," 

7 PRINT "DAS HEISST, "A "WIRD UM" B 

"VERRINGERT" 

8 PRINT "C =" C 

Alle diejenigen, welche den PRINT-Befehl mit dem Fra¬ 
gezeichen abgekürzt haben, werden jetzt staunen. Trotz 
der Abkürzerei steht im Programm-Ausdruck - auch Listing 
genannt - kein Fragezeichen, sondern das volle Wort 


»PRINT«. Das ist wieder die Tat des guten alten Editors, der 
flugs alles in seine rechte Bahn umlenkt und umcodiert. 

Wenn Sie beim Tippen keine Fehler gemacht haben, 
dann dürfen Sie das Programm laufenlassen. 

Wenn Sie einen Fehler entdeckt haben, dann nutzen Sie 
einfach den Editor aus und korrigieren Sie den Fehler direkt 
in der Zeile, wo er auftritt. Dabei bitte stets beachten: Nach 
der Reparatur nicht die Zeile verlassen, sondern zuerst RE¬ 
TURN drücken, damit die neue, korrigierte Zeile an die Stel¬ 
le der alten falschen Zeile, die ja dieselbe Nummer hat, ge¬ 
speichert wird. 

So, jetzt hindert uns aber niemand mehr am RUN (und 
natürlich RETURN-Taste). 

Auf Ihrem Bildschirm muß nun folgendes Resultat ste¬ 
hen: 

A= 72 

B= 2 

C IST A MINUS B, 

DAS HEISST, 72 WIRD UM 2 VERRINGERT 

C= 70 

READY. 


Merken wir uns: 

1 . Innerhalb eines PRINT-Befehls können Variable und 
Zeichen beliebig miteinander gemischt werden. Wichtig 
ist nur, daß Zeichen immer innerhalb von Anführungs¬ 
zeichen stehen müssen. 

2. Ein bereits im Progammspeicher stehendes Programm 
kann auf dem Bildschirm jederzeit abgeändert werden. 
Es gelten bei dem »Überschreiben« alle Regeln und 
Möglichkeiten des Editors. Eine Änderung muß mit Re- 
turr: ' ogeschlossen werden. 

3. In dem Programmspeicher wird die jeweils letzte mit 
< RETURN > eingegebene Version einer Zeile gespei¬ 
chert. 

4. Zeilennummern lassen sich auf dieselbe Art und Weise 
verändern. Eine Zeile wird durch Eingabe lediglich der 
Zeilennummer, also ohne Text, gelöscht. 

5. Zeilennummern brauchen nicht direkt aufeinander zu 
folgen. Lücken in der Zahlenfolge werden übersprun¬ 
gen. 

6. Es empfiehlt sich, ein Programm mit Zeilennummern zu 
versehen, die zum Beispiel jeweils um 10 voneinander 
verschieden sind. Das erleichtert das spätere Einfügen 
von zusätzlichen Programmzeilen. 

7. Eine Programmzeile kann maximal 80 Zeichen enthal¬ 
ten. Bei späterem Vergrößern von bestehenden Zeilen 
schiebt der Editor alle Zeilen automatisch nach unten, 
um Platz zu schaffen. 


Ja, was wollen Sie machen, wenn das Programm noch 
immer nicht das tut, was es soll? 

Als allererstes nicht verzweifeln! Tippfehler treten immer 
wieder auf, die der Computer in seiner Perfektion eben er¬ 
barmungslos aufgedeckt. Da er keine eigene Intelligenz 
hat, tut er wirklich immer nur genau das, was wir ihm einge¬ 
ben - mit allen Fehlern. 

Eine Fehlersuche kann oft sehr mühsam sein, besonders 
bei langen und komplexen Programmen. 

Nun, in unserem Fall dürfte es nicht allzuschwer sein, 
Zeile für Zeile alle Buchstaben und Symbole durchzuge¬ 
hen, bis Sie den Fehler gefunden haben. 

Später, in Lektion 34, werden wir noch besondere Metho¬ 
den der Fehlersuche kennenlernen: jetzt möchte ich Sie 
noch nicht damit belasten. 

Ich möchte vielmehr, daß Sie noch ein bißchen mit dem 
Programm spielen. Verändern Sie die Zahlenwerte in den 
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Zeilen 1 und 2 durch direktes Überschreiben - aber immer 
mit < RETURN > abschließen, sonst bleibt der alte Wert 
erhalten. 

Sie brauchen dann nicht erneut RUN eintippen, es steht 
ja noch da. Fahren Sie mit dem Cursor drauf und drücken 
Sie die RETURN-Taste. Sofort wird das Programm wieder 
ausgeführt und wie mit Geisterhand erscheinen neue Zah¬ 
len an den Stellen der Variablen. 

Aber Achtung!! Die Werte auf dem Bildschirm werden 
nur überschrieben. Wenn der neue Wert kürzer ist als der 
alte, dann bleibt der »längere« Rest des alten Wertes ste¬ 
hen; das kann zur Verwirrung führen. 

Das passiert dadurch, daß dem Computer ja keine An¬ 
weisung gegeben worden ist, vorder Berechnung den Bild¬ 
schirm zu löschen. Diese Anweisung kommt erst später in 
unser Lehrprogramm. 

Beachtenswert ist, wie viele Zeichen in einer Programm¬ 
zeile stehen dürfen. 40 werden Sie vielleicht sagen - aber 
nein: Eine mit Nummer als Programmzeile gekennzeichne¬ 
te »logische« Zeile besteht aus zwei »echten« Bildschirm¬ 
zeilen und enthält somit maximal 80 Zeichen. 

Ein anderes »Experiment« besteht darin, die Zeilennum¬ 
mer einer Befehlszeile zu ändern. 

—► Fahren Sie mit dem Cursor auf die 8 dieser Zeile 
Überschreiben Sie die 8 mit der Ziffer 9 und drücken 
Sie <RETURN> 

Wir haben jetzt eine neue Programmzeile geschaffen, 
mit identischem Inhalt wie die alte Zeile 8. 

—► Geben Sie LIST und RETURN ein. 

Siehe da, wir haben eine neue Zeile 9, aber die alte Zeile 
8 ist auch noch da, natürlich, denn wir haben sie ja durch 
das Überschreiben nicht gelöscht. 

Das Löschen einer Zeile geht ganz einfach: 

—*- Tippen Sie die Nummer der Zeile, in unserem Falle ei¬ 
ne 8, in eine freie Zeile des Bildschirms und drücken 
Sie < RETURN > 

Wir haben also eine Zeile 8 ohne Text beziehungsweise 
ohne Befehle eingegeben. Da dem Rechner sein Speicher¬ 
platz sehr kostbar ist, ignoriert er eine solche nichtssagen¬ 
de Zeile - sie ist weg. Überprüfen Sie es mit LIST. 

Jetzt haben wir ein Programm, in dem in der Reihenfolge 
der Zeilen eine Nummer fehlt. Was macht das? Mit RUN 
können Sie sich überzeugen, daß das dem Computer völlig 
egal ist. Er braucht nämlich nur Zeilennummern in aufstei¬ 
gender Folge, Lücken überspringt er einfach. 

Das bedeutet aber, daß wir unser Programm oben auch 
mit den Zeilennummern 10..20..30.. und so weiter hätten 
schreiben können. In der Tat möchte ich Ihnen diese Vorge¬ 
hensweise empfehlen, da sie ein späteres Einfügen von 
weiteren Programmzeilen erlaubt. Wir werden das noch 
üben. 

Wir haben ein erstes kleines Programm geschrieben. 
Aber sein Wortschatz ist noch sehr begrenzt - LET und 
PRINT. Die beiden anderen Befehle, die wir kennen, näm¬ 
lich LIST und RUN, werden nur im Direkt-Modus verwen¬ 
det. Bevor wir weitermachen, empfehle ich Ihnen, das alte 
Programm aus dem Speicher des Computers zu entfernen 
und ihn freizumachen für ein neues Programm. 

Verwechseln Sie das bitte nicht mit dem Löschen des 
Bildschirms. Zur Klärung: 

- Die CLR/HOME-Taste geSHIFTet löscht den Bildschirm; 
ein Programm im Speicher bleibt davon unberührt. 

- Durch Aus- und Wiedereinschalten des Computers lö¬ 
schen Sie sowohl den Bildschirm als auch den Speicher 
des Computers, in welchem das Programm gespeichert 
ist. Der Computer meldet sich dann mit seinen Einschalt- 
Überschriften. 

- Es gibt auch einen Basic-Befehl, der ein Programm aus 


dem Speicher hinauswirft, ohne den Bildschirm zu lö¬ 
schen. Er heißt 

NEW 

Probieren Sie es bitte aus. 

—► Geben Sie eine beliebige Programmzeile (mit Num¬ 
mer) ein, zum Beispiel: 

20 PRINT"ABCDE" 

—► löschen Sie mit der CLR-Taste den Bildschirm, 
geben Sie direkt LIST ein. 

Jetzt erscheint die obige Zeile 20 wieder. 

—► geben Sie direkt NEW ein und nach der RETURN- 
Taste wieder den Befehl LIST 
Die Programmzeile 20 ist verschwunden. 


Basic-Befehl Nr. 5 NEW 

- macht den Programmspeicher frei für die Eingabe eines 
neuen Programms 

- ein »altes« im Speicher sitzendes Programm wird da¬ 
durch zwar nicht gelöscht, aber es kann nach dem NEW- 
Befehl nur noch unter ganz bestimmten Umständen und 
nur mit besonderen Tricks wieder verfügbar gemacht 
werden 


Seien Sie also vorsichtig mit diesem Befehl, immer erst 
überlegen, bevor Sie NEW mit der RETURN-Taste ab¬ 
schließen, hat er doch eine so gut wie endgültige Wirkung. 
Salopp ausgedrückt »löscht« er den Programmspeicher. 

Auch dieser Befehl wird fast ausschließlich nur im Direkt- 
Modus eingesetzt. 


Ich habe Ihnen erklärt, daß wir mit Variable die Stichwörter 
bezeichnen, unter denen der Computer sich Zahlenwerte 
merkt und unter denen sie auch wieder aus dem Speicher 
hervorgeholt werden können. 

Des öfteren wird das alles mit Schachteln verglichen, auf 
die der Name einer Variablen geschrieben wird. Ein Wert, 
welcher der Variablen zugeordnet wird, kommt in die 
Schachtel mit dem richtigen Namen hinein. Eine Kopie des 
Wertes kann jederzeit aus der Schachtel herausgeholt wer¬ 
den, wenn man ihren Namen kennt. Der Wert bleibt solan¬ 
ge in der Schachtel, bis er durch einen neuen ersetzt wird. 

Es gibt mehrere Arten von Variablen, von denen wir zwei 
besprechen wollen. 

6.1 Numerische Variable 

Diesen Typ haben wir bislang verwendet. Er enthält nur 
Zahlen: ganze Zahlen (325), Dezimalbrüche (0.325) und ne¬ 
gative Zahlen (-325, -0.325). 
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Bei der Wahl des Namens der Variablen, der vom auf die 
Schachtel geschrieben wird, sind wir ziemlich frei. Er muß 
nur immer mit einem Buchstaben anfangen. Die nachfol¬ 
genden Zeichen können Buchstaben, Ziffern oder grafi¬ 
sche Zeichen sein. 

Wir haben bisher X, SUMME, PRODUKT etc. verwendet. 
Wir dürfen aber auch B23X oder F5 nehmen. 

Der Länge des Variablen-Namens ist theoretisch nur 
durch die Anzahl der verfügbaren Zeichen in der Pro¬ 
grammzeile eine Grenze gesetzt. Praktisch ist das aber oh¬ 
ne Bedeutung, da der Computer nur die ersten beiden Zei¬ 
chen als Namen verwendet. So vielsagend zum Beispiel in 
einem Programm die Variablen-Namen »PRODUKT« und 
»PROFIT« sein könnten, der Computer erkennt nur »PR« 
und nimmt an, es handle sich um dieselbe Variable. Also 
Vorsicht!!! 

6.2 String-Variable 

So nennen wir den zweiten Typ. Hier geht es nun um 
Schachteln, in die wir Buchstaben, Zeichen, Wörter, ja so¬ 
gar ganze Sätze bis zu einer maximalen Länge von 255 Zei¬ 
chen hineingeben dürfen. 

Diese Aneinanderreihung von Zeichen bezeichnen wir, 
wie schon erwähnt, mit »Zeichenketten« oder mit dem eng¬ 
lischen Wort »String«, das sich wegen seiner Kürze allge¬ 
mein durchgesetzt hat. Daher auch der Name »String- 
Variable«. 

Der Name einer String-Variablen ist genauso aufgebaut 
wie der einer numerischen Variablen, nur muß am Ende im¬ 
mer das Dollar-Zeichen »$« - die geSHIFTete 4-Taste - ste¬ 
hen. 

Der Vergleich der beiden Variablentypen sieht so aus: 
—*• 10 A = 25 

20 A$ = "ZEICHENKETTE" 

30 PRINT A 
40 PRINT A$ 

Sie sehen, selbst bei gleichem Namen, nämlich A, unter¬ 
scheidet der Computer exakt zwischen der numerischen 
Variable A und der Stringvariable A$. 

Strings und Stringvariable werden uns fortan laufend be¬ 
gegnen. Deswegen schlage ich zur Übung noch ein paar 
Beispiele vor. 

Löschen Sie bitte das obige Programm mit NEW und ge¬ 
ben Sie die folgenden Programmzeilen ein, wobei Sie ge¬ 
nau auf Semikolons und Doppelpunkte achten müssen. 

—► NEW 

10 T$="HOLZ " 

20 U$="FEUER" 

30 W$= "7 " 

40 X$= "5 " 

50 PRINT U$:PRINT T$ 

60 PRINT U$;:PRINT T$ 

70 PRINT T$;:PRINT U$ 

80 PRINT W$;:PRINT X$ 

90 PRINT W$ X$ 

Diese Programmzeilen ergeben auf dem Bildschirm fol¬ 
gendes Bild: 

FEUER 

HOLZ 

FEUERHOLZ 

HOLZFEUER 

75 

75 

In den Zeilen 10 bis 40 werden vier String-Variable defi¬ 
niert, und ihnen werden zwei Wörter und zwei Ziffern zuge¬ 
wiesen. Die Ziffern sind nicht Zahlenwerte, sondern eben¬ 
falls Strings, da sie zwischen Anführungszeichen stehen. 
Zeile 50 enthält zwei - durch den Doppelpunkt getrennte - 


PRINT-Befehle, die untereinander die Strings der beiden 
Variablen U$ und T$ ausdrucken. 

Zeile 60 ist fast identisch mit Zeile 50, und doch ist ihr Re¬ 
sultat grundlegend verschieden, da beide Strings neben¬ 
einander in einem Wort geschrieben werden. Der winzige 
Unterschied ist das Semikolon am Ende des ersten PRINT- 
Befehls. Wir haben das Semikolon schon kennengelernt, 
als Trennzeichen bei der Aneinanderreihung von mehreren 
numerischen Variablen innerhalb eines einzigen PRINT- 
Befehls. 

Hier bei den Strings hat es eine entgegengesetzte Wir¬ 
kung. Es klebt nämlich die Strings zweier Variablen, die in 
getrennten PRINT-Befehlen stehen, aneinander. 


Merken wir uns: 

1. Wir haben bisher zwei Typen von Variablen kennenge¬ 
lernt: 

- den »numerischen« Variablen weisen wir ausschließ¬ 
lich Zahlenwerte zu 

- den Stringvariablen, gekennzeichnet durch das 
$-Zeichen am Ende des Variablennamens, weisen wir 
ausschließlich Zeichen, Buchstaben oder ganze Folgen 
von ihnen zu. Diese Zeichen- und Buchstabenfolgen 
heißen »Zeichenketten« oder »Strings«. 

Ziffern sind auch zugelassen, nur werden sie wie Zei¬ 
chen (und nicht als Zahlenwerte) behandelt. 

2. Die Zuordnung von Zahlen oder Strings zum falschen 
Variablentyp führt generell zu einer Fehlermeldung und 
oft auch zum Abbruch des Programms. 

3. Das Semikolon am Ende eines PRINT-Befehls bewirkt, 
daß der nächste PRINT-Befehl, egal wo er steht, seinen 
Text »Trekt anschließend zum vorhergehenden druckt. 

4. Um ein Programm ab einer bestimmten Zeilennummer 
zu starten, wird diese Zeilennummer dem RUN-Befehl 
angehängt (RUN 600). 


Ich weiß, das sieht verwirrend aus. Aber glauben Sie mir, 
diese »Rechtschreibregeln« werden Ihnen sehr rasch in 
Fleisch und Blut übergehen. 

Zeile 70 ist ein weiteres Beispiel für den Alleskleber Se¬ 
mikolon, nur diesmal in umgekehrter Reihenfolge der 
Strings. 

Zeile 80 zeigt Ihnen, daß die Ziffern 7 und 5 in der Tat nicht 
als Zahlenwerte, sondern als Strings behandelt werden. 
Numerische Variable werden, wie Sie sich erinnern, mit 
Leerzeichen für das Vorzeichen und für den Abstand aus¬ 
gedruckt, Strings dagegen nicht. Und da ist es egal, ob der 
String zufällig eine Ziffer ist. 

Zeile 90 schließlich zeigt, daß wie bei den numerischen 
Variablen auch mehrere String-Variable hinter einen einzi¬ 
gen PRINT-Befehl geschrieben werden können. Da das 
$-Zeichen das Ende der String-Variablen eindeutig fest¬ 
legt, kann bei Strings das Semikolon weggelassen werden. 
Die nächsten drei Zeilen erweitern das Programm: 

—► 100 Y$=T$+U$ 

110 Z$=U$+T$ 

120 PRINT Y$:PRINT Z$ 

Die beiden String-Variablen T$ und U$ werden zu einem 
neuen String Y$ und in umgekehrter Reihenfolge zu Z$ zu¬ 
sammengebaut (Zeile 100 und 110). Zeile 120 druckt uns 
das Resultat aus. 

Zum Schluß will ich noch meine Behauptung von oben, 
daß nämlich nur die beiden ersten Zeichen einer Variablen 
erkannt werden, beweisen. 

—► 130 PR0DUKT=25:PRINT PR 
140 PR0FIT= 3:PRINT PR 
150 PRINT PRODUKT 
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Zeile 130 weist der numerischen Variablen »PRODUKT« 
den Zahlenwert 25 zu und druckt ihn aus, wobei die ersten 
beiden Buchstaben der Variablen genügen, um sie im Spei¬ 
cher zu finden. 

Zeile 140 tut dasselbe für die Variable »PROFIT« mit dem 
Zahlenwert 3. Und siehe da, die Variable PR, die vorher 
noch 25 war, wird jetzt mit dem Wert 3 ausgedruckt. Daß wir 
tatsächlich in Zeile 140 der Variablen PRODUKT einen neu¬ 
en Wert zugewiesen haben, obwohl wir den Variabien- 
Namen PROFIT gewählt haben, beweist uns Zeile 150, die 
unter PRODUKT dennoch die 3 ausdruckt. 

Übrigens, wenn Sie nur der Ablauf der letzten drei Zeilen 
des Programms interessiert, können Sie eine Eigenschaft 
des Befehls RUN ausnützen: 

Wenn Sie 
RUN 130 

eingeben, läuft das Programm ab Zeile 130 los und läßt alle 
vorhergehenden Zeilen unbeachtet. 

Wenn Sie aber nach dem RUN eine Zeilennummer ange¬ 
ben, die im Programm nicht vorkommt, läuft das Programm 
nicht los, sondern es meldet sich der Computer mit der Feh¬ 
lermeldung »UNDEF’D STATEMENT« (undefined State¬ 
ment), was soviel heißt wie »Zeilennummer nicht definiert«. 



—► GOTO 130 

springt der Computer auf die Zeile 130 und führt sie und die 
nachfolgende Zeile aus. Im Direkt-Modus wirkt er also wie 
der RUN-Befehl. 

Im Programm-Modus sieht der Befehl genauso aus, er ist 
halt nur mit einer Zeilennummer versehen: 

—► 65 GOTO 130 

Durch den Sprungbefehl in der neuen Zeile 65 rückt das 
Programm auf die Zeile 130 vor und überspringt die Zeilen 
70 bis 120. 

Der GOTO-Befehl kann als Zieladresse aber auch eine 
niedrigere Zeilennummer als er selbst haben. Dann springt 
er im Programm zurück und bildet so eine Schleife. Geben 
Sie bitte ein: 

—»• 80 GOTO 60 

Dieser Sprungbefehl wiederholt die beiden Zeilen 60 und 
70 endlos lange oder aber bis Sie die STOP-Taste drücken. 

Basic-Befehl Nr. 6 GOTO 

- wird mit der folgenden Schreibweise verwendet: 

GOTO (Zeilennummer) 

- veranlaßt den Computer sowohl im Direkt- als auch im 
Programm-Modus, auf die hinter dem Befehlswort ste¬ 
hende Zeilennummer zu springen 

- erlaubt Sprünge sowohl auf höhere, als auch auf niedri¬ 
gere Zeilennummern; durch Rücksprünge können Pro¬ 
gramm-Schleifen erzeugt werden 

- fehlt die Zeilennummer des GOTO-Befehls im Programm, 
bleibt das Programm mit der Fehlermeldung »UNDEF’D 
STATEMENT ERROR« mit Angabe der Zeilennummer 
des falschen Befehls stehen. 


an - 


Die letzte Anwendung des GOTO-Befehls hat eine soge¬ 
nannte Endlos-Schleife erzeugt, aus der ein Computer von 
allein nicht mehr herauskommt. Sie ist natürlich ziemlich 
sinnlos, denn außer zum Füllen des Bildschirms mit stets 
denselben Zeichen nützt sie uns gar nichts. 

Da aber Programmschleifen sehr nützliche Werkzeuge 
sein können, soll ihnen eine eigene Lektion gewidmet sein. 
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Sprünge im Programm 


Bislang bestand ein Programm aus einzelnen Zeilen, die 
der Reihe nach abgelaufen sind. 

Ein Programm muß nicht so einfach sein. Es vermag 
auch Sprünge auf beliebige Zeilen durchzuführen. 

Dazu enthält die Sprache BASIC einen Befehl, der den 
Computer »hüpfen« läßt, und zwar auf eine mit diesem Be¬ 
fehl angegebene Programmzeile. Der Befehl lautet: 

GOTO (Zeilennummer) 

Er darf auch in der Form GO TO geschrieben werden. 

Auf deutsch bedeutet er GEHE NACH. 

Durch ihn veranlaßt, springt der Computer auf die ange¬ 
gebene Programmzeile und fährt dort mit dem Programm 
fort. 

Der Befehl GOTO darf auch im Direkt-Modus verwendet 
werden. 

Ich nehme an, Sie haben noch das letzte Programm mit 
den Strings (Zeile 10 bis 150) im Computer. Wenn Sie jetzt 
direkt eintippen: 
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Schleifen und Prüfungen 


Mit Schleifen können wir zum Beispiel zählen. Das will ich 
Ihnen zeigen. Geben Sie ein: 

—► NEW 

10 X=X+1 
20 PRINT X 
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Nach RUN druckt uns die Zeile 20 eine 1 aus. Am Anfang 
des Programms ist der Variablen X noch keine Zahl zuge¬ 
ordnet, also ist sie 0. In Zeile 10 wird 1 dazugezählt, was 1 
ergibt. 

Das ist beileibe nicht trivial, denn jetzt ergänzen wir das 
Programm mit: 

—► 40 GOTO 10 

Die dadurch gebildete Schleife wiederholt den Vorgang, 
und in Zeile 10 wird bei jedem Durchgang die Variable X um 
1 erhöht. 

Dieses kurze Programm erzeugt eine Zählschleife, die 
eine endlose Zahlenkolonne über den Bildschirm sausen 
läßt. Mit der CTRL-Taste können Sie diesen Lauf verlangsa¬ 
men, mit der STOP-Taste abbrechen. 

Diese endlosen Schleifen sind aber wie Autobahnen oh¬ 
ne Ausfahrt. Man kommt leicht drauf, und wer drauf ist, 
kommt nicht runter. 

Wir brauchen also eine Methode, die den Aussprung aus 
einer Schleife ermöglicht. Dabei wollen wir aber angeben 
können, wann oder wo wir ausspringen. 

In einer Zählschleife wäre das denkbar beim Erreichen 
einer bestimmten Zahl, zum Beispiel 15. 

Prüfung ohne Noten 


Basic kennt einen Befehl, der prüft, ob eine bestimmte, von 
uns festlegbare Bedingung erfüllt ist. Dann nämlich tut er, 
was man ihm vorgegeben hat. 

Der Befehl besteht aus den beiden Wörtern 


in Zeile 10 den Wert für X jeweils um 2 erhöhen, also die Zei¬ 
le 10 so schreiben: 

—► 10 X=X+2 

ist die Schleife wieder endlos, weil 14 oder 16 erreicht 
wird, aber niemals 15. 

Das Problem ist lösbar mit einer Prüfung, ob X größer als 
15 geworden ist. Dazu existiert ein Zeichen » > «, das mit der 
geSHIFTeten Punkt-Taste erzeugt wird. 

—*• 30 IF X > 15 THEN GOTO 50. 

Jetzt wird die Zeile erst bei der Zahl 16 verlassen. 

Als Prüfbedingung stehen uns mehrere mathematische 
und logische Ausdrücke zur Verfügung: 


ist gleich 

_ 



kleiner 

< 

ist ungleich 

< > 

nrftßor 


Boolesches UND 

AND 

kleiner oder gleich 

< = 

Boolesches ODER 

OR 

gleich oder größer 

= > 

Negation 

NOT 


Die ersten sechs davon sprechen für sich selbst, die letz¬ 
ten drei werde ich in Lektion 31 behandeln. 

Mit der Ungleich-Bedingung können wir unsere Schleife 
sogar noch viel eleganter gestalten: 

—*■ 30 IF X < > 15 THEN GOTO 10 
40 PRINT "ENDE" 

50 

Wir sparen Zeile 50 ein, weil die Prüfung immer erfüllt ist, 
bis X den Wert 15 erreicht hat. 

Für den IF-THEN-Befehl sind mehrere Schreibweisen er¬ 
laubt: 


IF THEN 

auf deutsch WENN DANN. 

Die volle Schreibweise sieht so aus: 

IF (Prüfbedingung) THEN (Aktion) 


1. Möglichkeit 

Zeile 30 dürfen wir vereinfacht schreiben: 

646R onunawn if x < > 15 then 10 

oder 


IF X=3 THEN PRINT "DREI" 


30 IF X < > 15 GOTO 10 


X=3 ist die Prüfbedingung, PRINT "DREI" die Aktion. Anstelle von THEN GOTO kann auch THEN oder GOTO 
Der Befehl prüft also, ob die Prüfbedingung erfüllt ist allein stehen, 
oder nicht. Man sagt auch, er prüft, ob sie »wahr« oder 


»falsch« ist. 

- Ist sie erfüllt, dann wird die hinter dem THEN stehende 
Aktion ausgeführt. 

- Ist sie nicht erfüllt, dann wird ungeachtet dessen, was 
noch in der Zeile steht, das Programm mit der nächsten 
Zeile fortgesetzt. 

Die Arbeitsweise sehen Sie am besten in unserem Bei¬ 
spiel. Fügen Sie bitte den Zeilen 10 und 20 die zwei folgen¬ 
den Zeilen 30 und 50 hinzu: 

—* 10 X=X+1 
20 PRINT X 

30 IF X=15 THEN GOTO 50 
40 GOTO 10 

SV ., , .'.'1,50 PRINT "ENDE" 

Also, in Zeile 10 wird X zu 1, Zeile 20 druckt die 1 aus. 
Zeile 30 prüft, ob X bereits den Wert 15 erreicht hat. Dies 
ist nicht der Fall, deswegen geht das Programm in der 
nächsten Zeile - nämlich 40 - weiter. Zeile 40 springt auf 
Zeile 10 zurück, X wird um 1 erhöht und hat jetzt den Wert 
2. Die Bedingung in Zeile 30 ist aber noch immer nicht er¬ 
füllt. Also wiederholt sich der ganze Vorgang, so lange, bis 
die Bedingung des IF-Befehls erfüllt ist. Erst wenn X den 
Wert 15 erreicht hat, tritt der THEN-Teil des Prüfbefehls in 
Kraft und führt das aus, was hinter dem THEN steht. In un¬ 
serem Beispiel springt er mit GOTO 50 aus der Schleife her¬ 
aus auf die Zeile 50. 

In Zeile 50 endet das Programm mit dem Ausdruck »EN¬ 
DE«. 

Man muß bei der Festlegung der Prüfbedingung aufpas¬ 
sen, daß sie überhaupt auch auftritt. Wenn wir zum Beispiel 


2. Möglichkeit 

Nach dem THEN kann auch ein anderer Basic-Befehl 
stehen: 

110 PRINT X 

120 IF X < > 15 THEN X=X+1 

130 GOTO 110 
140 PRINT "ENDE" 

In Zeile 120 wird die Zählvariable X direkt weitergezählt, 
womit derselbe Effekt erzielt wird wie im Programmteil vor¬ 
her (Zeile 10 bis 50). 

Nur mit dem ENDE klappt es noch nicht. Sobald nämlich 
X=15 ist, gilt die Bedingung in Zeile 120 nicht mehr - und 
die Zeile 130 kommt wieder an die Reihe, was wir ja nicht 
wollen. 

Um das zu vermeiden, muß die Zeile 120 so lauten: 

—► 110 PRINT X 

120 IF X <> 15 THEN X=X+1:G0T0 110 
130 (entfällt) 

140 PRINT "ENDE" 

Sie müssen also immer aufpassen und an die IF-THEN- 
Regeln denken: 

- wenn IF »wahr« ist, wird alles hinter THEN ausgeführt 

- wenn IF »falsch« ist, kommt die nächste Zeile zum Zuge 

3. Möglichkeit 

Mehrere Zählschleifen können unabhängig voneinander 
gleichzeitig ablaufen. Im folgenden Beispiel beginnt die er¬ 
ste Schleifenvariable X ab dem Wert 0 und wird bei jedem 
Durchlauf um 1 erhöht. Die zweite Schleifenvariable Y be¬ 
ginnt ab 28 und wird stetig um 2 reduziert: 
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—*■ 210 X=0:Y=28 
220 X=X+1 
230 Y=Y-2 
240 PRINT XjY 

Als Bedingung für das Ende wähle ich den Fall, wo X 
größer als Y geworden ist: 

—*• 250 IF X < Y THEN 220 
260 PRINT "ENDE" 

Sobald X=10 und Y=8, ist die Prüfbedingung der Zeile 
250 erfüllt und das Programm bleibt stehen. 

4. Möglichkeit 

Mehrere Zählvariable können auch voneinander abhän¬ 
gig sein. Das folgende Programmbeispiel zeigt das auf ein¬ 
fache Weise. Obwohl diese verschachtelte Schleife keinen 
praktischen Wert hat, zeigt sie den Zusammenhang doch 
sehr eindrucksvoll: 

—► 310 X=2:Y=1 
320 X=X+Y-2 
330 Y=Y-X+3 

In Zeile 310 stehen die Anfangswerte der Zählvariablen, 
Zeile 320 und Zeile 330 enthalten die Formeln, nach denen 
in jedem Umlauf der Schleife die Werte von X und Y »weiter¬ 
gezählt« werden. 

Um das Resultat zu sehen, brauchen wir noch zwei Zei¬ 
len: 

—► 340 PRINT X; Y 
350 

360 GOTO 320 

X und Y nehmen folgende Werte an: 


X 

2 1 2 4 5 4 2 1 

Y 

1 3 4 3 1 0 1 3 


Man sieht, daß nach sechs Umläufen der Schleife die ur¬ 
sprünglichen Werte von X und Y wieder auftreten. 

Als Prüfbedingung erlaubt uns diese Schleife eine inter¬ 
essante Variante. Für X kommt die Zahl 4 gleich zweimal 
vor, einmal bei Y=3 und noch einmal bei Y=0. Diese zweite 
Kombination wollen wir abfragen. Dazu nützen wir eine wei¬ 
tere Eigenschaft des IF-THEN-Befehls aus: 

Durch Hintereinanderstellen von mehreren IF- 
THEN-Befehlen kann eine Mehrfach-Prüfung er¬ 
zielt werden. 

—► 350 IF X=4 THEN IF Y=0 THEN PRINT "ENDE" 

Im dritten Umlauf der Schleife ist die erste IF-Bedingung 
bereits erfüllt, aber nicht die zweite. Erst nach dem 
5. Umlauf bleibt die Schleife stehen. 


Basic-Befehl Nr. 7 IF..THEN 

- nach dem Befehlswort IF steht eine Prüfbedingung, nach 
dem Befehlswort THEN eine Aktionsanweisung 

- IF prüft, ob die Prüfbedingung erfüllt ist, wenn ja, dann 
wird die Aktionsanweisung und der Rest der Zeile ausge¬ 
führt, wenn nein, läuft das Programm mit der nächsten 
Zeile weiter 

- mehrere IF.THEN-Befehle können hintereinandergestellt 
eine Mehrfach-Prüfung bilden 

- bei IF..THEN GOTO (Zeilennummer) kann entweder das 
THEN oder das GOTO weggelassen werden 



Wir haben die Schleifen bis jetzt mit Hochzählen einer 
Schleifenvariablen und Prüfen, ob die Aussprungsbedin¬ 
gung schon erreicht ist, programmiert. 

Basic stellt uns dafür einen sehr bequemen Befehl zur 
Verfügung. Er besteht aus drei Wörtern: 

FOR..TO..NEXT 

Auf deutsch läßt sich das übersetzen mit »Für..Bis..Der 
Nächste«. 

Ein Beispiel soll ihn erklären. Links steht die alte Zähl¬ 
schleife, rechts die neue Befehlsfolge. 

—► 10 X=X+1 10 F0R X=1 T0 10 

20 PRINT X 20 PRINT X 

30 IF X=10 THEN END 
40 GOTO 10 40 NEXT X 

Man sieht sehr schön den Zusammenhang. 

Die alte Methode der Definition einer immer um 1 höher¬ 
zählenden Variablen mitsamt einer Prüfung ist jetzt in einer 
Zeile mit den Befehlsteilen FOR TO zusammengefaßt. Die 
Prüfung ist eingebaut. 

Dem alten Rücksprung mit GOTO entspricht jetzt der Be¬ 
fehlsteil NEXT. 

Die FOR-NEXT-Schleife hat immer die folgende Schreib¬ 
weise: 

FOR Schleifenvariable = Anfangswert 

T0 Endwert 

STEP Schrittweite 


(Programm innerhalb der Schleife) 

NEXT Schleifenvariable 
Die Schleife 

FOR T=0 T0 14 STEP 2 

setzt also die Schleifenvariable T auf Null und zählt bis 14 
hoch, allerdings immer in Zweierschritten. Wenn STEP 
weggelassen wird, dann wird automatisch die Schritt¬ 
weite 1 genommen. 

Eine rückwärtszählende Schleife sieht so aus: 

FOR T=l4 TO 0 STEP -1 

In diesem Fall muß die Schrittweite, weil negativ, immer 
angegeben werden. 

Interessant ist auch, daß die Schrittweite ein Dezimal¬ 
bruch sein kann. 

—*• 10 FOR X=1 T0 15 STEP 3-7 
20 PRINT X 
30 NEXT X 
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ergibt die Zahlen 1, 4.7, 8.4, 12.1 - also jeweils um die 
Schrittweite 3.7 erhöht. 

Daraus ist ersichtlich, daß der NEXT-Befehl in der Schlei¬ 
fe nicht prüft, ob die Schleifenvariable X den Endwert 15 
exakt erreicht hat, sondern ob sie größer ist. 

Auch der FOR-TO-NEXT-Befehl erlaubt uns, Schleifen 
zu »schachteln«. Was das bedeutet, zeigt uns das nächste 
Beispiel: 

—► 10 FOR X=1 TO 3 

20 FOR Y=X TO X+2 

30 PRINT Y 

40 NEXT Y 

50 NEXT X 

Die Zeilen 10 und 50 bilden die äußere Schleife. Die Zei¬ 
len 20 bis 40, die ich zur besseren Übersicht weiter einge¬ 
rückt habe, bilden die innere Schleife. 

Wir wollen nachvollziehen, was da abläuft. 

Sie sehen, daß die innere Schleife so oft wiederholt wird, 
wie es die äußere Schleife vorgibt. 

Der NEXT-Befehl hat noch zwei Feinheiten. Bei einer ein¬ 
zigen Schleife kann die Angabe der Schleifenvariablen hin¬ 
ter ihm wegfallen. Die folgende kleine Zeitverzögerungs¬ 
schleife demonstriert das: 

—*• FOR T=1 T0 500: NEXT 
Bei geschachtelten Schleifen stehen oft mehrere ab¬ 
schließende NEXT-Befehle hintereinander. Statt: 

40 NEXT Y 
50 NEXT X 

kann geschrieben werden: 

40 NEXT Y,X 

Dabei ist auf die Reihenfolge der Schleifenvariablen zu 
achten. Zuerst kommt immer die innere Variable. 

Neben allen diesen geschilderten Feinheiten hat die 
FOR-TO-NEXT-Schleife noch einen weiteren Vorteil ge¬ 
genüber der Zählschleife mit IF-THEN: Sie ist wesentlich 
schneller in der Ausführungszeit. 

Basic-Befehl Nr. 8 FOR-TO STEP-NEXT 

- hinter FOR steht die Schleifenvariable mit ihrem zugewie¬ 
senen Anfangswert. Hinter TO steht der Endwert der 
Schleifenvariable 

- mit STEP kann die Schrittweite eingestellt werden. Sie 
kann auch negativ oder ein Dezimalbruch sein 

- rückwärtszählende Schleifen müssen immer eine negati¬ 
ve Schrittweite mit STEP angeben 

- mehrere Schleifen können geschachtelt werden. Die in¬ 
nere Schleife muß vor der äußeren abgearbeitet werden 

- bei NEXT kann die Schleifenvariable weggelassen wer¬ 
den, wenn dadurch keine Zweideutigkeiten mit anderen 
Schleifenvariablen entstehen 

- wenn mehrere NEXT-Befehle hintereinander auftreten, 
können ihre Schleifenvariablen durch Kommata getrennt 
hinter einem einzigen NEXT stehen. Die Reihenfolge »in¬ 
nere Variable vor äußerer Variable« ist einzuhalten 

Das folgende Beispiel soll noch einmal die Zählschleife 
mit IF-THEN der Version mit FOR-TO-NEXT gegenüber¬ 
stellen und diesen interessanten Unterschied aufzeigen. 

Mit beiden Methoden wollen wir 20 Zeilen des Bild¬ 
schirms mit dem Buchstaben A füllen 
—*• 10 PRINT "(CLR-Taste) " 

20 X=X+1 
30 PRINT "A"; 

40 IF X< > 20*40 THEN 20 
Zeile 10 löscht den Bildschirm. In Zeile 30 dürfen Sie das 
Semikolon nicht vergessen, damit alle Buchstaben neben¬ 
einandergeschrieben werden. 


Die Prüfbedingung in Zeile 40 fragt nach, ob 20 Zeilen 
mal 40 Plätze gefüllt sind, eine Schreibweise, die durchaus 
erlaubt ist. 

Schreiben Sie die andere Version direkt darunter: 

—► 110 PRINT "(CLR-Taste)" 

120 FOR X=1 T0 20*40 
130 PRINT "A"; 

140 NEXT X 

Diese Zeilen brauche ich Ihnen nicht erklären. 

Der frappierende Unterschied: 

- die IF-THEN-Schleife benötigt zirka 10 Sekunden 

- die FOR-TO-NEXT-Schleife benötigt nur wenig mehr als 
2 Sekunden 

Auf dieses Phänomen der Laufzeitunterschiede werde 
ich in Lektion 23 noch eingehen. 

Das war wieder eine ganze Menge Information. Wer will, 
sollte hier vielleicht eine kleine Pause einlegen. 


9 


Eingabe 


So, jetzt möchte ich Sie mit der Möglichkeit vertraut ma¬ 
chen, während des Ablaufs eines Programms - also nicht 
schon beim Eintippen desselben - dem Computer Anwei¬ 
sungen in Form von Zahlen und Wörtern zu geben. 

9.1. Eingabe mit Input 

Bislang haben wir alle Zahlen und Wörter, die der Com¬ 
puter auf den Bildschirm bringen sollte, immer vorher, das 
heißt beim Schreiben der Programmzeilen eingegeben: als 
Wert-Zuweisung für eine Variable (das gute alte Stichwort), 
mit und ohne LET-Befehl. 

Dasselbe während des Ablaufs eines Programms er¬ 
möglicht der Basic-Befehl 

INPUT (gefolgt von einer Variablen) 

Auf deutsch würde dieser Befehl »Eingabe« heißen. Im 
Direkt-Modus können wir ihn leider nicht einsetzen. Versu¬ 
chen Sie es ruhig: 

—► INPUT A (RETURN nicht vergessen!) 

Der Computer bestraft uns mit der Fehlermeldung »ILLE¬ 
GAL DIRECT ERROR«. Aber im Programm-Modus, das 
heißt mit einer Zeilennummer versehen, geht es. Auch das 
wollen wir ausprobieren: 

—► 10 INPUT A 

Jetzt nur noch RUN eingeben, und siehe da, der Compu¬ 
ter druckt ein Fragezeichen und wartet mit blinkendem Cur¬ 
sor auf Ihre Eingaben. 

Daß er wirklich wartet, merken Sie daran, daß er beharr¬ 
lich immer wieder die Fehlermeldung »REDO FROM 
START« - was einfach »NOCH EINMAL« heißt - und danach 
das auffordernde Fragezeichen ausdruckt, wenn Sie einen 
Buchstaben oder ein Zeichen eingeben. 

Er akzeptiert nur Zahlen, und außerdem noch die Leer¬ 
taste, den Punkt, das Plus- und das Minuszeichen. Die 
RETURN-Taste bricht den Befehl ab, und das Programm 
fährt mit der nächsten Zeile fort. 

Warum akzeptiert INPUT A nur Zahlen? Nun, was pas¬ 
siert bei INPUT eigentlich? 

Die Zahl, die wir per Tastatur eingeben, wird der Varia¬ 
blen A, die hinter dem Befehlswort INPUT steht, zugeord¬ 
net, genauso wie mit dem LET-Befehl. 

Mit der folgenden Programmzeile, die Sie zusätzlich zur 
Zeile 10 eingeben, wird diese Zuordnung bewiesen: 

—► 10 INPUT A 
20 PRINT A 

Die beiden Zeilen 10 und 20 zusammen ergeben ein 
Mini-Programm, welches nach RUN auf eine Eingabe war- 
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tet und diese - sofern es eine Zahl ist - auf dem Bildschirm 
ausdruckt. 

Wir können also in der Tat mit der Tastatur innerhalb ei¬ 
nes Programms Zahlenwerte in dasselbe eingeben, aber 
warum nur Zahlen? 

Die Antwort ist einfach: Einer Variablen, die den Namen 
»A«, oder »ZAHL« oder »SUMME« hat, dürfen nur Zahlen 
zugeordnet werden. 

Das heißt aber nicht, daß wir auf schriftliche Anweisun¬ 
gen, die aus Buchstaben, Zeichen oder ganzen Wörtern 
bestehen, verzichten müssen. Der INPUT-Befehl akzep¬ 
tiert sie auch, aber nur, wenn wir eine String-Variable ver¬ 
wenden. 

Wir können nämlich jetzt mit dem Befehl 
INPUT A$ 

die Eingabe einer Information in Form eines Strings pro¬ 
grammieren. 

Bitte löschen Sie das letzte Programm mit NEW und ge¬ 
ben Sie die beiden früheren INPUT-Programmzeilen neu 
ein, und zwar jetzt so: 

—► 20 INPUT A$ 

30 PRINT A$ 

Wenn Sie nun RUN eingeben, wartet der Computer mit 
dem Fragezeichen, bis Sie einen String eingeben und mit 
RETURN abschließen. Dann erst druckt er den String aus. 
Der eingegebene String A$ darf maximal 78 Zeichen ent¬ 
halten. 

In einem benutzerfreundlichen Programm sollte natür¬ 
lich bei dem wartenden Fragezeichen von INPUT dabeiste¬ 
hen, welche Art von Eingabe erwartet wird. Der Benutzer 
des Programms sieht ja schließlich die Programmzeile 
nicht, in welcher der INPUT-Befehl - mit oder ohne »$« - 
steht. 

Eine derartige Angabe können wir leicht erzeugen, in¬ 
dem wir eine entsprechende PRINT-Zeile vor den INPUT- 
Befehl der Zeile 20 setzen: 

—► 10 PRINT"TEXT-EINGABE" 

20 INPUT A$ 

30 PRINT A$ 

Als Ergebnis erhalten wir auf dem Bildschirm das Wort 
»TEXT-Eingabe«, darunter das Fragezeichen und wie ge¬ 
habt den wartenden Cursor. 

Wem das Untereinander nicht gefällt, der kann mit dem 
Semikolon als String-Kleber alles auf eine Zeile bringen: 
—► 10 PRINT"TEXT-EINGABE"; 

Aber es geht noch viel eleganter!! 

Der INPUT-Befehl selbst kann die Angabe enthalten. Wir 
nennen das einen »Kommentar« oder auf englisch ein 
»Prompt«. 

—► io 

20 INPUT"TEXT-EINGABEA$ 

30 PRINT A$ 

Zuerst wird die Zeile 10 gelöscht. Die Zeile 20 bringt das¬ 
selbe Ergebnis wie vorher die beiden Zeilen 10 und 20 zu¬ 
sammen. 

Der Kommentar hinter dem INPUT muß immer zwischen 
Anführungszeichen stehen, darf maximal 38 Zeichen - 
auch Leerstellen zählen dazu - lang sein und muß von der 
Variablen (egal, ob numerisch oder String) durch ein Semi¬ 
kolon getrennt sein. 

Und noch eine feine Einrichtung hat der INPUT-Befehl: 
Man darf hinter ihn mehrere Variable hängen, die allerdings 
alle eingegeben werden müssen. Die Schreibweise ist der 
des PRINT-Befehls sehr ähnlich: 

—► 40 INPUT"4 ZAHLEN";A,B,C,D 
50 PRINT A;B;C;D 
60 INPUT"3 STRINGS";A$,B$,C$ 

70 PRINT A$ B$ C$ 


Sie sehen deutlich, daß der INPUT-Befehl ein Komma 
zur Trennung der Variablen verlangt, der PRINT-Befehl da¬ 
gegen ein Semikolon, was, wie schon erwähnt, bei String- 
Variablen weggelassen werden kann. 

Wenn Sie nun trotz des Kommentars, vier Zahlen einzu¬ 
geben, nur eine einzige eingeben und die RETURN-Taste 
drücken, gibt sich der Computer nicht zufrieden, sondern 
deutet mit einem doppelten Fragezeichen unmißverständ¬ 
lich darauf hin, daß noch weitere Eingaben erforderlich 
sind. 

Die Zahlen, hintereinander eingegeben, müssen auch 
durch Kommata getrennt werden. 

Geben Sie aber mehr Werte ein, als durch die Anzahl der 
Variablen hinter dem INPUT-Befehl verlangt werden, er¬ 
scheint die Fehlermeldung »EXTRA IGNORED«; überzäh¬ 
lige Werte werden von Computer also ignoriert. 


Basic-Befehl Nr. 9 INPUT 

- darf nur innerhalb eines Programms (also nur mit Zeilen¬ 
nummer) eingesetzt werden 

- wird immer in der Schreibweise: 

INPUT (Variable) verwendet 

- druckt ein Fragezeichen auf den Bildschirm und wartet 
auf eine Eingabe von der Tastatur, die mit RETURN abge¬ 
schlossen werden muß 

- akzeptiert numerische Variable (Zahlen) und String- 
Variable (Text) 

- weist eine falsche Zuordnung zurück, das heißt eine Zahl 
kann nicht für eine String-Variable und ein String nicht für 
eine normale Variable eingegeben werden 

- mit einem einzigen INPUT-Befehl kann die Eingabe von 
mehreren Variablen abgefragt werden. Diese Variablen 
müssen durch Kommata voneinander getrennt sein 

- werden nicht alle geforderten Variablen eingegeben, 
fragt INPUT mit einem doppelten Fragezeichen nach den 
fehlenden Werten 

- werden mehr Werte als gefordert eingegeben, meldet der 
Computer dies mit einer Fehlermeldung »EXTRA IGNO¬ 
RED« 

- bei String-Eingaben dürfen maximal 78 Zeichen einge¬ 
geben werden 

- INPUT kann mit einem Kommentar versehen werden, 
den es vor dem Fragezeichen ausdruckt. Dieser Kom¬ 
mentar muß so geschrieben werden: 

INPUT ' KOMMENTAR ";(Variable) 

- der Kommentar darf maximal 38 Zeichen lang sein 


Diese Eingabemethode für Strings funktioniert gut, aber 
sie hat einige Eigenheiten und Einschränkungen: Dazu ein 
paar Beispiele: 

Starten Sie die Zeilen 10 und 20 mit RUN. Wenn Sie hin¬ 
ter dem blinkenden Fragezeichen eingeben: 

WERT:ZAHL oder WERT,ZAHL 
erscheint eine Fehlermeldung und der Ausdruck: 

EXTRA IGNORED 
WERT 

Der Text ab dem Komma beziehungsweise ab dem Dop¬ 
pelpunkt wird unterschlagen. 

Die Eingabe: 

"WERT" IST 

führt zur Fehlermeldung REDO FROM START. 

Bei einer Eingabe: 

"DER WERT 

wird das Anführungszeichen nicht geschrieben. 

Dagegen wird die folgende Eingabe akzeptiert: 

DER "WERT" IST 

Sie sehen, man muß aufpassen. 
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Merken wir uns: 

1. Komma und Doppelpunkt dürfen im einzugebenden 
Text nicht Vorkommen 

2. einen Zeilensprung mit RETURN einzugeben geht 
nicht, da diese Taste den INPUT-Vorgang beendet 

3. der Text darf nicht mit einem Anführungszeichen an¬ 
fangen 

4. der Text - mit Leerstellen - darf nicht länger als 78 Zei¬ 
chen sein 

5. der Eingabevorgang kann nicht mit der STOP-Taste ab¬ 
gebrochen werden. 


Der INPUT-Befehl in Verbindung mit der IF-THEN- 
Abfrage ist eine wichtige Möglichkeit zur Steuerung und 
Beeinflussung von Programmen durch den Benutzer. Wir 
werden sie immer wieder antreffen. Zwei kleine Beispiele 
sollen diese Befehlskombination verdeutlichen: 

In einem Spielprogramm soll der Spieler eine Zahl zwi¬ 
schen 5 und 10 eingeben. Das geht so: 

—► 10 PRINT"GEBEN SIE EINE ZAHL ZWISCHEN 
5 UND 10 EIN" 

20 INPUT "ZAHL (5-10) ";Z 
30 IF Z < 5 THEN 20 

40 IF Z > 10 THEN 20 
50 PRINT Z 


Wort »NEIN« wird ausgedruckt. Haben wir aber »NEIN« 
auch nicht eingegeben, sondern irgend ein anderes Wort 
(String), dann geht das Programm in der nächsten Zeile 
(90) weiter. 

Ich hoffe, Sie sehen wieder das typische Muster des 
IF.THEN-Befehls. 

In Zeile 90 schließlich wird die Ermahnung ausgedruckt, 
doch nur mit »JA« oder »NEIN« zu antworten, und mit dem 
Rücksprung GOTO 60, mit dem Doppelpunkt als zweitem 
Befehl der Zeile 90 angehängt, wird eine neue Eingabe ver¬ 
langt. 

Einen kleinen Fehler hat das Programm noch. Wenn Sie 
es mit RUN von Anfang an oder mit RUN 60 nur ab der 
INPUT-Zeile starten und gleich mit »JA« antworten, kommt 
zuerst Zeile 100 zum Zuge, aber gleich danach auch Zeile 
110, und wir erhalten beide Ausdrucke, »JA« und »NEIN«. 

Zeile 110 können wir in diesem Fall ausblenden, entwe¬ 
der durch eine Überbrückung mit GOTO (irgendwohin) 
oder mit einem neuen Basic-Befehl, der das Programm mit 
Zeile 100 beendet. Er heißt END. 


Endstation mit END 


Ändern Sie bitte Zeile 100 ab: 

—► 100 PRINT"JA":END 



Jede eingegebene Zahl Z, die kleiner als 5 oder größer 
als 10 ist, wird durch die Zeilen 30 und 40 durch Rück¬ 
sprung auf den INPUT-Befehl zurückgewiesen. 

Die Prüfvariable kann auch ein String sein. Bitte ergän¬ 
zen Sie das Programm mit den folgenden Zeilen: 

—► 60 INPUT "JA ODER NEIN";A$ 

70 IF A$="JA" THEN GOTO 100 
80 IF A$="NEIN" THEN GOTO 110 
90 PRINT "FALSCHE EINGABE":GOTO 60 
100 PRINT "JA" 

110 PRINT "NEIN" 

Das wollen wir jetzt zeilenweise analysieren. 

Zeile 60 ist der INPUT-Befehl, der uns im Kommentar auf¬ 
fordert, entweder »JA« oder »NEIN« einzugeben. 

Zeile 70 prüft, ob wir »JA« eingegeben haben. Ist das der 
Fall, dann springt sie auf Zeile 100, und wir erhalten den 
Ausdruck »JA«. Haben wir nicht das »JA« eingegeben, geht 
das Programm in der nächsten Zeile (80) weiter. 

In Zeile 80 wird geprüft, ob wir »NEIN« eingegeben ha¬ 
ben. Wenn das zutrifft, springt sie auf Zeile 110, und das 


Jetzt klappt es. 

Der END-Befehl beendet also die Ausführung eines Pro¬ 
gramms. 


Basic-Zjfehl Nr. 10 END 

Dieser Befehl steht für sich allein oder nach einem 
IF-THEN-Befehl als Aktionsanweisung. 

Er beendet sofort ein Programm und der Computer mel¬ 
det sich mit READY und blinkendem Cursor. 


9.2. Eingabe mit GET 

In Basic gibt es noch einen zweiten Befehl, der im Prinzip 
das gleiche wie INPUT macht. Nur im Detail der Ausfüh¬ 
rung unterscheidet er sich vom Kollegen INPUT. Diese Un¬ 
terschiede aber machen ihn zu einer wertvollen Alternative. 
Der Befehl heißt 

GET (Variable) 

was soviel bedeutet, wie »holen, bekommen«. 

Der GET-Befehl holt also einen Wert und weist ihn der 
hinter ihm stehenden Variablen zu. Diese Variable kann ei¬ 
ne numerische oder eine String-Variable sein. 

Unterschied zwischen GET und INPUT 

- INPUT wartet, bis eine Eingabe mit der RETURN-Taste 
abgeschlossen ist 

- GET wartet nicht, sondern prüft lediglich, ob eine Taste 
gedrückt worden ist. 

- INPUT erlaubt die Eingabe bis zu 78 Zeichen 

- GET holt immer nur 1 Zeichen 

- INPUT meldet sich mit Fragezeichen und Cursor 

- GET meldet sich auf dem Bildschirm nicht 

Die Frage stellt sich, wie der GET-Befehl prüfen kann, ob 
eine Taste gedrückt worden ist, wenn er nicht wartet. Daß 
er gerade in dem kurzen Zeitpunkt prüft, in dem zufällig der 
Tastendruck stattfindet, ist mehr als unwahrscheinlich. 

Und in der Tat, wenn nicht das Zeichen jeder gedrückten 
Taste in einen Pufferspeicher käme, ehe es weiterverwen¬ 
det wird, hätte der GET-Befehl keine Chance, jemals eine 
Eingabe zu erwischen. 
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Der Tastaturpuffer 


Diesen Speicher des Computers, in dem die Zeichen ge¬ 
drückter Tasten erst einmal zwischengeiagert werden, 
möchte ich Ihnen kurz zeigen. 

Dazu brauchen wir eine Zählschleife, wie wir sie beim 
GOTO-Befehl erstmals angewendet haben. Hier brauche 
ich sie, um eine sogenannte Zeitverzögerungsschleife zu 
bauen. Diese tut das, was ihr Name sagt: sie zählt eine ge¬ 
wisse Zeit still vor sich hin und verzögert so den nächsten 
Programmschritt. Entfernen Sie bitte alle Programmzeilen 
mit NEW 
—► NEW 

30 X=X+1 

. 40 IF X < > 500 THEN 30 

Mit RUN gestartet, läuft die Schleife in diesen beiden Zei¬ 
len 500mal durch, bis sich der Editor mit READY und Cur¬ 
sor wieder meldet. 

Diese Zeit nützen wir, um so viele Tasten wie möglich hin¬ 
tereinanderzu drücken. Natürlich sehen wir nichts auf dem 
Bildschirm, während das Programm der Zeitschleife läuft. 
Die Behauptung, daß die gedrückten Zeichen in einen Puf¬ 
ferspeicher kommen, bewahrheitet sich nach dem Ende 
der Zeitschleife. 

Nach dem READY holt nämlich der Editor alle Zeichen 
aus dem Tastaturpuffer und druckt sie aus. Da dieser Puffer 
nur 10 Zeichen speichern kann, sehen Sie nur 10 Zeichen, 
selbst wenn Sie es geschafft haben, mehr einzugeben. 
Also nochmal: 

—► RUN eingeben 

möglichst viele Tasten drücken, aber nicht gleich¬ 
zeitig nach dem READY die Zeichen zählen 

In diesem Tastaturpuffer schaut also der GET-Befehl 
nach, ob vorher ein Tastendruck ein Zeichen darin unterge¬ 
bracht hat. Wenn ja, dann verwendet er es, falls nein, 
kommt die nächste Programmzeile dran. 

Um das zu zeigen, erweitern wir das obige Programm um 
vier weitere Zeilen: 

—► 10 GET A 
20 PRINT A 
30 X=X+1 

40 IF X < > 100 THEN 30 

50 X=0 
60 GOTO 10 

In Zeile 10 schaut der GET-Befehl im Tastaturpuffer nach 
einem Zeichen. Was immer er findet, druckt Zeile 20 auf 
den Bildschirm. Eine 0 signalisiert, daß der Puffer leer war. 

Die Zeilen 30 und 40 zählen von 1 bis 100, wie beim Ver¬ 
steckspielen, und machen dann nach 100 Zähleinheiten in 
Zeile 50 weiter, in der die Zählvariable X wieder auf Null ge¬ 
setzt wird. 

Zeile 60 springt zurück auf den GET-Befehl und alles 
fängt mit X=0 wieder von vorn an. Das Resultat ist eine 
langsam fortschreitende senkrechte Kolonne von Ziffern 
links am Bildschirm. Die Geschwindigkeit ist durch die 
Prüfzahl in Zeile 40 einstellbar. 

Während der Zählschleife haben wir nun Gelegenheit, 
Zahlen einzugeben, die als einzelne Ziffern vom GET- 
Befehl geholt und durch Zeile 20 ausgedruckt werden. 

Die Zeitschleife der beiden Zeilen 30 und 40 können wir 
natürlich auch mit der FOR-TO-NEXT-Schleife schreiben. 
Da diese Schleifenart aber viel schneller abläuft, muß die 
Zählvariable lOmal so groß sein. 

—► 30 F0R X=0 T0 1000: NEXT 
40 (entfällt) 

50 (entfällt) 

033 ? 


Wenn Sie einen Buchstaben eingeben, bricht das Pro¬ 
gramm mit einer Fehlermeldung ab. 

Um Buchstaben und Zeichen eingeben zu können, müs¬ 
sen wir die numerische Variable A in eine String-Variable 
A$ umwandeln - natürlich in beiden Zeilen 10 und 20. 

Jetzt holt der GET-Befehl Buchstaben - aber auch Zif¬ 
fern! Diese werden jedoch als Zeichen (einstellige Strings) 
und nicht als Zahlenwerte behandelt. 


Basic-Befehl Nr. 11 GET 

- der Befehl GET (Variable) holt eine Zahl oder ein Zeichen 
aus dem Tastaturpuffer und weist es der Variablen zu 

- die Variable kann eine numerische oder eine String- 
Variable sein 

- entspricht das Zeichen bzw. die Zahl nicht dem Variablen¬ 
typ, wird mit Fehlermeldung abgebrochen 

- GET wartet nicht. Falls der Puffer leer ist, weist er der Va¬ 
riablen den Wert 0 beziehungsweise einen sogenannten 
»Nullstring« (kein Leerzeichen, einfach gar nichts) zu 

- im Gegensatz zu INPUT sind bei der Eingabe mit GET al¬ 
le Zeichen erlaubt, auch Komma, Doppelpunkt und Semi¬ 
kolon 


Jetzt will ich Ihnen eine echte Anwendung des GET- 
Befehls zeigen. Wir haben in Lektion 9 bei der INPUT- 
Eingabe einen Programmteil geschrieben, um den Benut¬ 
zer zu fragen, ob er mit JA oder NEIN antworten will. 

Mit dem INPUT-Befehl ging das so: 

—► 10 PRINT"BEGINN" 

(Lina ' (Programm) 

320 INPUT"NOCH EINMAL (J/N) ";A$ 

340 IF A$="J" THEN 10 
350 IF A$ < >" N" THEN 320 
360 PRINT"AUF WIEDERSEHEN" 

Ab Zeile 10 beginnt das Programm. 

Zeile 320 fragt nach J(a) oder N(ein). 

Zeile 340 prüft, ob die Eingabe "J(a)" ist, im Fall »wahr« 
springt das Programm an den Anfang zurück. 

Im Fall »falsch« kommt Zeile 350 an die Reihe mit der Prü¬ 
fung, ob die Eingabe ein ungültiges Zeichen ist - alle Zei¬ 
chen außer »NEIN« sind ungültig. Leider ist die Eingabe 
»NEIN« auch falsch, denn wir prüfen ja nur auf »N«. Das ist 
ein Nachteil des INPUT-Befehls. 

Im Fall »wahr« beziehungsweise »J« wird der INPUT- 
Befehl wiederholt. Wenn es ein »N« war, verabschiedet sich 
das Programm in Zeile 360. 

Dasselbe machen wir jetzt mit dem GET-Befehl. Die Zei¬ 
len 10, 340, 350 und 360 bleiben unverändert. 

—10 PRINT "BEGINN" 

(Programm) 

320 PRINT"NOCH EINMAL (J/N)?" 

330 GET A$:IF A$=""THEN 330 
340 IF A$="J"THEN 10 
350 IF A$ < > "N" THEN 320 
360 PRINT"AUF WIEDERSEHEN" 

Zeile 320 druckt die Anfrage aus, die oben hinter dem 
INPUT-Befehl steht. In Zeile 330 schaut der GET-Befehl im 
Tastaturpuffer nach, ob er ein Zeichen enthält. Mit IF 
A$= " " prüft er, ob der Puffer leer ist. Die doppelten Anfüh¬ 
rungszeichen ohne Zwischenraum repräsentieren den bei 
der Befehlsbeschreibung genannten »Nullstring«, das 
heißt, im Puffer war kein Zeichen. Deswegen springt diese 
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Zeile 330 auf sich selbst zurück und verharrt in dieser 
Schleife so lange, bis die Prüfbedingung des Nullstrings 
nicht mehr erfüllt ist. Das ist sie, sobald irgendeine Taste ge¬ 
drückt worden ist. Die restlichen Zeilen prüfen genauso wie 
im Beispiel vorher. Der Hauptunterschied ist der, daß der 
GET-Befehl auch »NEIN« akzeptiert, prüft er doch immer 
nur 1 Zeichen, nämlich das erste - er würde natürlich auch 
»NAME« akzeptieren. Außerdem reagiert er sofort und nicht 
erst nach dem Drücken der RETURN-Taste. Prinzipiell 
möchte ich sagen, daß der GET-Befehl »intelligenter« ist als 
INPUT. Er bietet mehr Flexibilität und auch mehr Eleganz 
- eine Eigenschaft, in der sich oft gute und schlechte Pro¬ 
gramme unterscheiden. 


Merken wir uns: 

1. der GET-Befehl wartet nicht 

2. wenn er auf eine Eingabe warten soll, muß er mit einer 
»Nullstring-Abfrage« in eine einzeilige Warteschleife gelegt 
werden: 

20 GET A$:IF A$="" THEN 20 


Es könnte sein, daß der eine oder andere Leser jetzt 
seufzt und sich fragt, wie denn mit allen diesen Befehlen je¬ 
mals ein Programm zusammenstellbar sei. 

Ich habe in der Tat vor, so schnell wie möglich mit Ihnen 
ein erstes sinnvolles und für Sie reizvolles Programm zu 
entwickeln. Natürlich wird es ein Spiel sein. Wir brauchen 
dazu aber noch zwei weitere Befehle. 



Der Zufall im Computer ist eigentlich ein Widerspruch in 
sich, da doch im Computer alles durch die Anweisungen 
des Programms fest vorgegeben ist. Und doch gibt es et¬ 
was Zufallähnliches. 

Es ist sowohl bei mathematischen Anwendungen als 
auch bei Spielen oft erforderlich, von einer nicht vorher be¬ 
kannten, völlig zufällig entstandenen Zahl auszugehen. 
Wie könnte sie anders heißen als »Zufallszahl«. 

Basic hat einen Befehl, der eine derartige Zufallszahl er¬ 
zeugt. Er heißt: RND (X) 


Der Name ist abgeleitet aus RANDOM, was auf deutsch 
»zufällig« bedeutet. 

Das X, das in Klammern hinter dem Befehlswort steht, 
wird Argument genannt. Das X kann drei Werte haben: 

- eine positive Zahl (egal, welcher Wert) 

- eine negative Zahl 

- die Zahl 0 

Bevor wir darauf eingehen, möchte ich Ihnen die Wir¬ 
kungsweise von RND zeigen, wie immer am besten durch 
ein Experiment. 

—► 10 A=RND(1) 

20 PRINT A 
30 GOTO 10 

Diese drei Zeilen bilden eine Schleife, die Ihnen in einem 
Zahlenstreifen die Werte zeigt, die RND(1) erzeugt. Wir se¬ 
hen vielstellige Zahlenwerte, die abgerundet zwischen 0 
und 1 liegen. 

Ab und zu taucht in der Zahlenkolonne eine Zahl in eigen¬ 
artiger Schreibweise auf, mit einer Ziffer vor dem Dezimal¬ 
punkt und einem »E-« gefolgt von einer Zahl. Das ist die so¬ 
genannte wissenschaftliche Schreibweise, die im Hand¬ 
buch von Commodore genauer erklärt wird. Hier bitte ich 
Sie, diese Zahlen ganz einfach zu ignorieren. 

Zurück zu den Zahlen, die von RND erzeugt werden. 
Sie werden durch eine komplizierte mathematische For¬ 
mel errechnet, die zwar keine absolute Zufälligkeit garan¬ 
tiert, ihr aber sehr nahekommt. 

Sie können sich vorstellen, daß die Zufälligkeit ganz we¬ 
sentlich von der oben genannten Anfangszahl abhängt. 
Und gerade sie wird durch das Argument (X) beziehungs¬ 
weise durch die drei Arten des Arguments bestimmt. 

Das positive X beginnt nach dem Einschalten des Com- 
puterc :mmer mit derselben Anfangszahl. Bei X=0 wird als 
Anfangszahl der Stand der inneren Computeruhr genom¬ 
men. Bei einer negativen Zahl bildet diese selbst den An¬ 
fangswert. 

Ich empfehle Ihnen, den Wert 0 zu nehmen. Mit 0 als Ar¬ 
gument von RND will ich die drei Zeilen von oben neu 


Basic-Befehl Nr. 12 RND(X) 

- wird für X die Zahl 0 oder irgendeine positive Zahl genom¬ 
men, erzeugt dieser Befehl eine zirka achtstellige Zahl 
zwischen Null und Eins. Ihr jeweiliger Wert ist sozusagen 
zufällig. 


schreiben, diesmal als sogenannten »Einzeiler«. Darunter 
versteht man ein Programm, welches in eine einzige Zeile 
paßt. Glauben Sie mir, in dieser Art sind schon ganze Kunst¬ 
werke veröffentlicht worden. 

Diesen Anspruch erhebe ich nicht, nur den der Verein¬ 
fachung. 

—*• 10 PRINT RND(0) :G0T0 10 

Die Zeile braucht unbedingt eine Zeilennummer, damit 
der GOTO-Befehl eine Schleife bilden kann. 

Zufallszahlen haben wir jetzt, aber leider in der Form ei¬ 
nes Dezimalbruches. Wenn wir in einem Programm zum 
Beispiel würfeln wollen, brauchen wir Zufallszahlen von 1 
bis 6. Dezimalbrüche helfen uns da nicht viel. Wir brauchen 
also eine Möglichkeit, diese Dezimalbrüche in ganze Zah¬ 
len umzuwandeln. 

Auch dafür hat Basic einen Befehl. Er lautet: 

INT 

Das ist die Abkürzung von INTEGER, was auf deutsch 
»ganze Zahl« bedeutet. 

Der Dezimalbruch, der mit INT in eine ganze Zahl ver¬ 
wandelt werden soll, wird in Klammern hinter den Befehl 
geschrieben. Der Befehl ist im Direktmodus verwendbar: 
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—► PRINT INT(25.38) 

Wir erhalten die Zahl 25. 

INT macht es sich also leicht - es schneidet einfach alle 
Zahlen hinter dem Dezimalpunkt weg. 

Es ist auch erlaubt, genau wie beim PRINT-Befehl eine 
Formel mit INT zu versehen: 

—► PRINT INT(2.8908*567.8) 

Das Ergebnis ist 1641. 

Basic-Befehl Nr. 13 INT(A) 

- wandelt einen Dezimalbruch A in eine ganze Zahl um 

- A kann nicht nur ein Dezimalbruch, sondern eine mathe¬ 
matische Formel oder ein komplizierter mathematischer 
Ausdruck sein 

- die Klammern dürfen nicht weggelassen werden 

Diesen Befehl INT wenden wir jetzt an, um aus den uner¬ 
wünschten Dezimalbrüchen des RND-Befehls ganze Zah¬ 
len zu machen. 

Zuerst nehme ich der Klarheit halber die 3zeilige Version, 
welche die Zufallszahl einer Variablen zuordnet: 

—► 10 A=RND(0) 

20 PRINT INT(A) 

30 GOTO 10 

Der Unterschied zu vorher liegt hier in der Zeile 20. Das 
Resultat nach RUN ist enttäuschend, aber verständlich, 
denn der INT-Befehl macht aus Dezimalbrüchen, die klei¬ 
ner als 0 sind, nur eine 0. 

Zeile 20 muß verbessert werden, indem der Dezimal¬ 
punkt von A nach rechts verschoben wird. Das erreichen 
wir durch die Multiplikation mit 10,100,1000 und so weiter. 

—► 20 PRINT INT (A*10)i G<%CR q,- 

liefert Zufallszahlen von 0 bis 9. Den Bereich 0 bis 99 erhal¬ 
ten wir durch: 

—► 20 PRINT INT (A#100) 

Als Einzeiler sieht diese letzte Version so aus: 

—► 10 PRINT INT(RND(0)*100):G0T0 10 
Beachten Sie bitte die Verschachtelung der Klammern: 
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Ein vollständiges Programm 


INT(RND(0)) 


1. Klammer auf 
2. Klammer auf 



1. Klammer zu 
2. Klammer zu 


Wenn eine Klammer fehlt oder falsch ist, erhalten wir die 
Fehlermeldung »SYNTAX ERROR«. Am besten ist es, Sie 
überprüfen, daß die Anzahl der geöffneten und geschlos¬ 
senen Klammern immer gleich ist. Im Merksatz finden Sie 
ein Kochrezept, mit dem Sie Zufallszahlen innerhalb des 
gewünschten Bereiches erzeugen können. 

Merken wir uns: 

Die Formel: 

—► A = INT(RND(0)*X)+Y 

erzeugt ganze Zahlen innerhalb des Zahlenbereiches Y bis 
Y+X-1. 

Beispiel: 

Zufallszahlen von 20 bis 90 machen Y zu 20 und erfor¬ 
dern ein X, das aus der Formel Y+X-1 =90 errechnet wird. 
Anders geschrieben lautet diese Formel X=90-Y+1. Das 
ergibt in unserem Fall X=71. 

—► 10 PRINT INT(RND(0)*71)+20 

Im Zweifelsfall lohnt es sich immer, die Formel mit einer 
derartigen Zeile 10 auszuprobieren. 


Wir sind gerüstet für ein erstes Programm. Es heißt »ZAH¬ 
LEN RATEN« und ist aus dem Buch »Computerspiele und 
Knobeleien« von Rüdiger Baumann abgeleitet. Ein ähnli¬ 
ches Zahlenratespiel finden Sie übrigens auch im Commo- 
dore 64-Handbuch (Seite 51 f.) 

AufgaLj: 

Eine vom Computer zufällig gewählte Zahl zwischen 
1 und 100 soll in möglichst wenigen Versuchen erraten wer¬ 
den. Nach jedem Rateversuch gibt der Computer einen 
Hinweis »zu groß« oder »zu klein«. Wurde richtig geraten, 
nennt der Computer die Zahl der Versuche und stellt an¬ 
heim, das Spiel noch einmal zu versuchen oder zu be¬ 
enden. 

11.1. Die Planung eines Programms 

Ich habe ganz am Anfang dieses Kurses erwähnt, daß 
Basic dazu verleitet zu »hacken«. In der Tat führt die an sich 
sehr positive Eigenschaft dieser Programmiersprache, 
nämlich schon kleinste Bruchstücke eines Programms ein¬ 
geben und dann gleich ausprobieren zu können, leicht zu 
einem sogenannten »Spaghetti-Programm«. Die einzelnen 
Bruchstücke kann man nämlich stehenlassen und die an¬ 
deren Teile irgendwie dazwischenschieben oder mit GOTO 
irgendwo anhängen. Das Resultat ist aber am Schluß ein 
wilder Haufen von Befehlszeilen, die zwar funktionieren, 
aber nicht mehr nachvollziehbar sind. 

Es ist daher anzuraten, sich den Ablauf eines Pro¬ 
gramms vorher zu überlegen, was ja nicht schwer ist, weil 
ein Computer nie mehrere Sachen gleichzeitig macht, son¬ 
dern alle streng hintereinander abwickelt. So einen Ablauf 
kann man schön aufs Papier malen, und das will ich Ihnen 
jetzt zeigen. 

Zuerst schreiben wir ganz einfach alle Vorgänge der Rei¬ 
he nach auf. Wenn die Reihenfolge uns nicht paßt, wird sie 
einfach abgeändert. 

Am Ende kann es so aussehen: 

1. Bildschirm löschen 

2. Überschrift schreiben 

3. Zufallszahl zwischen 1 und 100 erzeugen 

4. Zähler für Zahl der Versuche auf Null stellen 

5. Anweisungen an den Spieler 

6. Eingabe einer geratenen Zahl 
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7. Zähler der Versuche um 1 erhöhen 

8. Prüfung der geratenen Zahl auf: 

- zu groß: Hinweis geben und neuer Versuch 

- zu klein: Hinweis geben und neuer Versuch 

- richtig: Zahl der Versuche ausdrucken 

9. Frage, ob noch einmal 

- ja: zurück zum Anfang 

- nein: Verabschiedung, Ende 

Alles, was jetzt noch zu tun bleibt, ist, die einzelnen Punk¬ 
te der Reihe nach mit den Befehlen, die wir kennen, als Pro¬ 
grammzeilen zu schreiben. 

Übrigens: Ich schreibe zuerst nur die »aktiven« Pro¬ 
grammzeilen. Alle anderen Teile des Programms, die nur 
der Lesbarkeit dienen, folgen später. Dadurch erklären sich 
auch die Sprünge in den Zeilennummern, die ich Sie bitte 
zu beachten. 

11.2. Die Durchführung 
Punkt 1 und 2: 

Den Bildschirm löschen wir mit einem PRINT-Befehl, 
hinter dem wir nach dem ersten Anführungszeichen die 
geSHIFTete CLR/HOME-Taste drücken - was bekanntlich 
im Direktmodus den Löschvorgang auelöst. Im Listing er¬ 
scheint dann ein invertiertes Herz. Was es damit auf sich 
hat, erkläre ich im Anschluß an das Programm. 

—*• 10 PRINT" [SHIFT CLR/HOME ]" 

20 PRINT"****** ZAHLEN RATES ****** 

Punkt 3:. 

Der Bereich der Zufallszahl soll zwischen 1 und 100 lie¬ 
gen. Entsprechend dem dafür angegebenen Kochrezept 
INT(RND(0)*X)+Y errechnen wir wieder mit der unteren 
Grenze 1=Y und der oberen Grenze X+Y-1=100 das uns 
noch fehlende X: 

X+1-1=100 

X=100 

Dann ergibt sich für die Zufallszahl »Z« die folgende Pro¬ 
grammzeile: 

—*• 70 Z=INT(RND(0)*100)+1 

Punkt 4: 

Der Zähl-Variablen für die Anzahl der Versuche geben 
wir den Namen »V«. In Zeile 80 wird sie auf Null gesetzt. 
—► 80 V=0 

Punkt 5: 

Die Anweisungen an den Spieler stehen in Zeile 120 und 
130. Sie können sie in Listing 1 - so nennen wir den kom¬ 
pletten Ausdruck eines Programms - in allen Einzelheiten 
nachlesen. 

Sie können die Anweisung aber Ihrem Geschmack ent¬ 
sprechend auch anders schreiben oder anders anordnen. 

Punkt 6: 

Die Aufforderung zur Eingabe einer Zahl und die Einga¬ 
be selbst besorgt uns wieder der INPUT-Befehl 

—► 140 PRINT 

150 INPUT"WELCHE ZAHL IST ES";R 

Vor dem INPUT-Befehl drucken wir erst eine Leerzeile 
aus, damit es besser aussieht. 

Der einzugebenden Zahl stellen wir die numerische Va¬ 
riable »R« zur Verfügung, diesmal ohne $-Zeichen, da wir 
ja Zahlen eingeben wollen. 

Punkt 7: 

Sobald die Zahl eingegeben ist, muß die Variable V des 
Versuche-Zählers um 1 erhöht werden. 

—*■ 160 V=V+1 

Punkt 8: 

Jetzt kommt die Prüfung mit IFTHEN. Ich habe sie we¬ 
gen der nachfolgenden Hinweise ZU GROSS, ZU KLEIN 
und RICHTIG in 3 Gruppen zu je 2 Stufen aufgebaut. 

Das Grundprinzip dieser Prüfung liegt im Vergleich der 
beiden Zahlen, nämlich der geheimen Zahl des Rechners 


»Z« und der eingegebenen Zahl »R« des Raters. Zeile 200 
prüft auf »größer«, Zeile 210 auf »kleiner«, Zeile 220 auf 
»gleich«. 

—*• 200 IF R < Z THEN PRINT R;:G0T0 xxx 
xxx PRINT"IST ZU GROSS":GOTO 140 

Die Zeilennummer xxx tragen wir dann nach, sobald klar 
ist, wie viele Zeilen noch dazwischenliegen. 

Wichtig in Zeile 200 ist das Semikolon nach der gerate¬ 
nen Zahl R. Es klebt wieder einmal den nachfolgenden Satz 
der Zeile xxx direkt hinter den Wert der Zahl R, so daß auf 
dem Bildschirm der Satz erscheint: 

»(Zahl R) IST ZU GROSS«. 

Genauso ist es mit den beiden anderen Prüfungen: 

—► 210 IF R > Z THEN PRINT R;:G0T0 yyy 
yyy PRINT"IST ZU KLEIN":GOTO 140 
220 IF R = Z THEN PRINT R;:G0T0 zzz 
zzz PRINT"IST RICHTIG" 

Aus der Reihenfolge wird jetzt klar, daß xxx die Zeile 230 
ist, entsprechend yyy=240 und zzz=250. Bitte tragen Sie 
dies nach. 

Die beiden falschen Ergebnisse in Zeile 230 und 240 füh¬ 
ren also zum Rücksprung auf eine neue Eingabe, die ab 
Zeile 140 beginnt. 

Ein richtiges Ergebnis führt in die nächsthöhere Zeile 
260 weiter. 

In Zeile 260 und 270 drucken wir jetzt den letzten Stand 
des Versuche-Zählers V aus, eingebettet in Text, von dem 
er durch zwei Semikolons getrennt werden muß: 

—260 PRINT "SIE HABEN"; V; "VERSUCHE "; 

270 PRINT"BEN0ETIGT" 

Ich habe mit Absicht den Text, der ja leicht in eine Zeile 
gepaßt hätte, in zwei Zeilen getrennt. Erstens verbessert er 
das Fcr: •iatdes Listings. Zweitens aber wollte ich Ihnen zei¬ 
gen, wie man trotzdem den Text in eine Zeile ausgedruckt 
erhält. Das Geheimnis liegt wieder im Semikolon nach dem 
letzten Wort der Zeile 260; zusätzlich aber ist die Leerstelle 
vor dem abschließenden Anführungszeichen wichtig. Oh¬ 
ne sie würden die beiden Wörter »VERSUCHE« und »BE- 
NOETIGT« zu einem einzigen Wort verklebt werden. 
Punkt 9: 

Es bleibt noch die Frage nach einer Wiederholung. Das 
machen wir mit dem GET-Befehl. 

Zeile 320 stellt die Frage, in Zeile 330 wartet der GET- 
Befehl mit einer Nullstring-Schleife auf eine gedrückte Ta¬ 
ste. Zeile 340 prüft auf »J(a)« und springt zurück auf den An¬ 
fang, Zeile 350 prüft auf ungültige Eingaben mit Wiederho¬ 
lung der Aufforderung, und wenn »N(ein)« eingegeben ist, 
schließt Zeile 360 das Programm mit höflicher Verabschie¬ 
dung. 

—► 320 PRINT "NOCH EINMAL (J/N) ?" 

330 GET A$:IF A$="" THEN 330 

340 IF A$= "J "THEN 10 

350 IF A$ <> "N" THEN 320 

360 PRINT:PRINT:PRINT"AUF WIEDERSEHEN" 

370 END 

So, das war doch nicht schwer, oder? 

Alles, was passieren kann, sind Tippfehler beim Eingeben. 

Im nachfolgenden Listing 1 ist das ganze Programm ab¬ 
gedruckt. 

Zwei Dinge fallen dabei auf: 

- Am rechten Rand stehen Zahlen in eckigen Klammern. 
Es sind Prüfzahlen, die dann entstehen, wenn das Pro¬ 
gramm mit der Eingabehilfe »Checksummer 64 V3« ein¬ 
gegeben wird, welche Sie in diesem Sonderheft auf Seite 
159 finden. 

- Viele Zeilen sind bisher in der Beschreibung nicht vorge¬ 
kommen, zum Beispiel die Zeilen 40, 50. 

Sie dienen der besseren Lesbarkeit des Listings. 


70 


SONDERHEFT 40 





C64 


BASIC-KURS 



Lesbarkeit und Struktur 
eines Programms 


Eine Methode, das Listing lesbar anzulegen, besteht darin, 
Leerzeichen an entsprechenden Stellen einzugeben. Ba¬ 
sic macht nämlich keinen Unterschied zwischen: 

PRINT A$ ; B$ und PRINTA$;B$. 

Die erste Version braucht zwar drei Speicherplätze 
mehr - eben die drei Leerzeichen, aber Version 2 ist 
schlecht lesbar. 

Zur besseren Lesbarkeit gehört auch, daß ab und zu eine 
Leerzeile eingefügt wird, die den Programmablauf nicht 
beeinflußt. Im Programm sind dies die Zeilen 30, 270 und 
290. Man erreicht dies durch einen Doppelpunkt nach der 
Zeilennummer, ohne Befehl. 

Eine dritte Art, das Listing zu verbessern, ist der Befehl 
REM 

Er kommt von Remark und bedeutet »Bemerkung«. Mit 
diesem Befehl kann man Text in das Listing eingeben, der 
aber vom Programm völlig ignoriert wird. Im Beispiel sind 
dies die Zeilen 40 und 380. 


Basic-Befehl Nr. 14 REM 

Dieser Befehl erlaubt, einen Text oder Zeichen - mit Zeilen¬ 
nummer versehen - in den Ausdruck eines Programms (Li¬ 
sting) einzufügen, ohne daß er im Ablauf des Programms 
erscheint. Es werden dabei keine Anführungszeichen ver¬ 
wendet. 

Dieses Verfahren erhöht die Lesbarkeit des Listings. 


S 46 R an 

Der vierte Punkt, der Ihnen im Listing 1 auffallen müßte, 
ist die Tatsache, daß bei allen PRINT-Befehlen der Text auf 
der linken Seite zwar mit einem Anführungszeichen an¬ 
fängt, aber rechts nicht mit dem zweiten Anführungszei¬ 
chen aufhört. 

Das ist am Ende einer Zeile erlaubt, weil ja die Zeile mit 
der RETURN-Taste abgeschlossen worden ist. 

Der fünfte Punkt betrifft die einzelnen Blöcke des Pro¬ 
gramms. In Listing 1 - und natürlich schon bei der Planung 
des Programms - habe ich einzelne Gruppen gebildet, die 
dem Programm eine logische und übersichtliche Struktur 
geben. 

Diese Methode nennt man »Strukturiertes Programmie¬ 
ren«, was besonders durch die sogenannten »Unterpro¬ 
gramme« ermöglicht wird. Diese Unterprogramme kom¬ 
men erst in Lektion 24 an die Reihe. Fürs erste genügt ein 
Hinweis darauf. Was halten Sie übrigens von einer kleinen 
Pause? Verdient haben Sie sich diese bestimmt. 


1 ^ Progn 
I w und d 


Programmierte Steuerlasten 


er ASCII-Code 


ln Zeile 10 des Programms »Zahlen Raten« kommt ein in¬ 
vertiertes Zeichen in Anführungszeichen vor. Es ist das 
Symbol der Steuertaste CLR, eingebettet in ein Programm. 
Was bedeutet das? 

Der Computer nützt hier eine Eigenschaft des PRINT- 
Befehls aus. PRINT druckt bekanntlich sowohl im Direkt¬ 
ais auch im Programm-Modus alle Zeichen auf den Bild¬ 
schirm, die in Anführungszeichen hinter ihm stehen. 

—*• PRINT"AAABBB" 

druckt nach RETURN diese sechs Buchstaben aus. Was ist 
aber mit den Steuerlasten CLR, HOME INST, DEL CRSR 
rauf/runter/links/rechts, und was ist mit den Farbtasten? 


Merken wir uns: 

1. Leerzeiien, die nur im Listing auftreten, das Programm 
aber nicht beeinflussen, erzeugt man durch einen Dop¬ 
pelpunkt hinter der Zeilennummer 

2. Bei der Abarbeitung einer Programmzeile ignoriert Ba¬ 
sic alle Leerzeichen, solange sie nicht zwischen Anfüh¬ 
rungszeichen stehend zu einem String gehören. Sie kön¬ 
nen daher weggelassen werden. 

3. Am Ende einer Zeile kann das abschließende Anfüh¬ 
rungszeichen weggelassen werden. 


Versuchen Sie es! Sie werden sehen, daß auch diese Ta¬ 
sten, zwischen Anführungszeichen, ein Symbol auf dem 
Bildschirm erzeugen, und zwar immer invertiert (also mit 
vertauschten Farbwerten für Vorder- und Hintergrund). In 
einem PRINT-Befehl erscheinen diese invertierten Zei¬ 
chen nur im Listing. 

Bei der Ausführung des PRINT-Befehls wird ihre Funk¬ 
tion ausgeführt!! 

Das müssen Sie ausprobieren. Geben Sie einen PRINT- 
Befehl mit Buchstaben, gefolgt von der CTRL-Taste, gleich¬ 
zeitig gedrückt mit der 8-Taste (YEL) und dann wieder 
Buchstaben ein. 


10 PRINT"<CLR> 

< 186> 

20 PRINT“******** ZAHLEN RATEN ******* 

<180> 

30 PRINT 

<132> 

40 


<016> 

50 REM+++++++ VORBEREITUNE ++++++++++++ 

<244> 

60 


<036> 

70 £ .--NT(RND(0)*100)+l 

<060> 

80 V=0 

<065> 

90 


<066> 

100 

REM+++++++ RATEN +++++++++++++++++ 

<0B2> 

110 

s 

<086> 

120 

PRINT"ICH HABE MIR EINE ZAHL 

< 144> 

130 

PRINT"ZWISCHEN 1 UND 100 GEMERKT. 

<252> 

140 

PRINT 

<242> 

150 

INPUT"WELCHE ZAHL IST ES ";R 

<020> 

160 

V=V+1 

<14B> 

170 

s 

<146> 

180 

REM+++++++ PRUEFEN +++++++++++++++ 

<096> 

190 

s 

<166> 

200 

IF R>Z THEN PRINT R;:GOTO 230 

<052> 

210 

IF R<Z THEN PRINT R;:GOTO 240 

< 126> 

220 

IF R=Z THEN PRINT R;:G0T0 250 

< 152> 

230 

PRINT"IST ZU GROSS":GOTO 140 

<195> 

240 

PRINT"IST ZU KLEIN":GOTO 140 

<043> 

250 

PRINT"IST RICHTIG" 

<067> 

260 

PR I NT " BIE HABEN " ; V“ VERSUCHE " ; 

<020> 

270 

PRINT"BENOETIGT 

<030> 

280 

: 

<002> 

290 

REM+++++ WIEDERHOLUNG ODER ENDE ++++ 

< 153> 

300 

: 

<022> 

310 

PRINT:PRINT:PRINT 

< 181 > 

320 

PRINT"NOCH EINMAL <J/N> ? 

<040> 

330 

GET A*: IF A*=""THEN 330 

<205> 

340 

IF A*="J"THEN 10 

< 137> 

350 

IF A*<>"N" THEN 320 

< 191 > 

360 

PRINT:PRINT:PRINT"AUF WIEDERSEHEN 

<017> 

370 

END 

< 118> 

Listing 1. Das erste Programm - einfaches Zahlenraten 


—► PRINT "AAA [CTRL 8] BBB" 

Statt (CTRL 8) sehen Sie auf dem Bildschirm ein inver¬ 
tiertes Pi-Symbol. 

Sobald Sie jetzt < RETURN > drücken, werden die B 
und alles folgende in Gelb gedruckt. Wenn Sie die ur¬ 
sprüngliche Farbe wiederherstellen wollen, drücken Sie 
entweder auf die CBM-Taste und die 7 gleichzeitig, oder 
aber auf STOP und RESTORE. 
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Genauso wie mit den Farb-Tasten geht es mit den Cursor¬ 
tasten. Zur Abwechslung machen wir das im Programm- 
Modus. 

—► 10 PRINT"ZZZ [4mal CRSR-rechts] XXX" 

Nach RUN werden die Z noch normal, die X aber um vier 
Stellen nach rechts versetzt gedruckt. 

Die folgende Tabelle zeigt Ihnen die invertierten Steuer¬ 
zeichen zur leichteren Identifzierung mit der Funktionsbe¬ 
schreibung. An einem Beispiel wollen wir das verdeutli¬ 
chen: 


Funktion 

Taste(n) 

Zeichen 

ASCII 

schwarz 

<CTRL 1 > 

■ 

144 

weiß 

< CTRL 2> 

a 

5 

rot 

<CTRL 3> 

ö 

28 

lila 

<CTRL4> 

D 

159 

purpur 

< CTRL 5> 

H 

156 

grün 

<CTRL 6> 

EI 

30 

blau 

<CTRL7> 

B 

31 

gelb 

<CTRL 8> 

ES 

158 

orange 

<CBM 1> 

D 

129 

braun 

<CBM2> 

* 

149 

hellrot 

< CBM 3> 

B 

150 

hellgrau 

<CBM4> 

0 

151 

mittelgrau 

<CBM 5> 

E 

152 

hellgrün 

<CBM 6> 

1 

153 

hellblau 

<CBM 7> 

C 

154 

dunkelgrau 

<CBM 8> 

R 

155 

Revers ein 

<CTRL9> 

@ 

18 

Revers aus 

<CTRL 0> 

B 

146 

Cursor rauf 

<SHIFT CRSR> 

□ 

145 

Cursor ab 

<CRSR> 

s 

17 

Cursor links 

<SHIFT CRSR> 

n 

157 

Cursor rechts 

<CRSR> 

B 

29 

Schirm löschen 

<SHIFT CLR/HOME> 

C 

147 

Cursor Home 

<CLR/HOME> 

0 

19 

Klein-/Groß- 

buchstaben 

<SHIFT CBM> 

09 

14 

Großbuch¬ 

staben/Zeichen 

<SHIFT CBM> 

■ 

142 

Funktionstaste 

Fl 

<F1 > 

■ 

133 

F2 

<SHIFTF1> 

a 

137 

F3 

<F3> 

e 

134 

F4 

<SHIFT F3> 

E 

138 

F5 

<F5> 

ii 

135 

F6 

<SHIFT F6> 

Bl 

139 

F7 

<F7> 

II 

136 

F8 

<SHIFT F7> 

B 

140 

Insert 

<SHIFT INST/DEL > 

II 

148 

Delete 

- 

II 

20 

Return 

- 

151 

13 

Shift-Return 

- 

9 

141 

Lock 

(Sperre der Zeichen¬ 
satzumschaltung) 


III 

8 

Unlock 

(Sperre aufheben) 

— 

a 

9 

1. Zeichensatz 

- 

Bl 

142 

2. Zeichensatz 

- 

lil 

14 


gung durch: Es wird um eine Position nach rechts bewegt. 
Der ASCII-Code wird in Lektion 14 erläutert. 

Besonders zu beachten sind dabei die letzten acht Steu¬ 
erfunktionen. Sie verfügen zwar über über spezifische 
Steuerzeichen, können aber nicht mit Tasten direkt erzeugt 
werden. 

Ihre Funktion kann nur dadurch erzielt werden, daß beim 
Eintippen für sie zuerst eine Leerstelle freigelassen wird. 
Nach < RETURN > muß man dann mit dem Cursor auf die¬ 
se Leerstelle fahren, dann REVERS-ON, also <CTRL 9 > 
drücken und anschließend das in der Tabelle dargestellte 
(reverse) Zeichen eingeben. Diese Aktion wird wieder mit 
< RETURN > abgeschlossen. 

Ganz rechts in der Tabelle der Steuertasten ist eine Spal¬ 
te von Zahlen, mit der Überschrift ASCII. Was dahinter¬ 
steckt, sei kurz beschrieben. 

Alle Computer verwenden intern irgendwelche Code- 
Zahlen, um die Zeichen, Buchstaben und Zahlen im Re¬ 
chenwerk, im Speicher und in den anderen Einheiten des 
Computers darzustellen. 

Theoretisch kann das jeder Computerhersteller machen, 
wie er will. Nur, wenn Daten von einem Gerät an ein anderes 
geliefert werden, zum Beispiel vom Computer an einen 
Drucker, müssen die Daten einem international standardi¬ 
sierten Code entsprechen. Dieser Standard heißt »Ameri¬ 
can Standard Code för Information Interchange«, abge¬ 
kürzt ASCII (Aussprache: »aski«). 

Jedes Zeichen, jede Zahl und jede Funktion hat seinen 
eigenen Code-Wert. Sie sind (fast) alle in einer Tabelle im 
Anhang F des Commodore-Handbuches aufgelistet. In der 
Tabelle sind ganz einfach diese Werte nur für die Steuerta¬ 
sten ausgewählt und dargestellt. 

Wir binnen aber ganz leicht ein kleines Programm 
schreiben, das uns die Abfrage aller ASCII-Codes gestat¬ 
tet. Dazu muß ich allerdings einen Befehl vorwegnehmen, 
den ich in der nächsten Lektion erkläre. Aber das macht 
nichts - Sie können mir sicher folgen. 

—► 10 INPUT A$ 

20 A=ASC(A$) 

30 PRINT A 
40 GOTO 10 

Der Pfiff liegt natürlich im neuen Befehl ASC(A$) in Zeile 
20. Er wandelt den ersten Buchstaben des per INPUT ein¬ 
gegebenen und mit < RETURN > abgeschlossenen 
Strings in seinen ASCII-Codewert um, den wir in Zeile 30 
ausdrucken. 

Zeile 40 verschafft dem Programm die Wiederholbarkeit, 
die bei INPUT nur durch die STOP- und RESTORE-Taste 
aufgehoben werden kann. Jetzt können Sie nach Herzens¬ 
lust alle Tasten und Tastenkombinationen nach ihrem 
ASCII-Code abfragen und so die unvollständige Liste im 
Commodore-Handbuch vervollständigen. 


14 


String-Befehle 


Wenn Sie innerhalb einer Programmzeile nach einem 
Anführungszeichen ein invertiertes <]> finden, dann führt 
das Programm an dieser Stelle mit dem Cursor eine Bewe- 


Strings - auf deutsch »Zeichenketten« - haben wir ausführ¬ 
lich in Lektion 3 und Lektion 6 behandelt. Basic kennt meh¬ 
rere Befehle, mit denen Strings verändert, verglichen und 
sonst irgendwie manipuliert werden können. 

14.1. Strings und der ASCII-Code 

Da mit dem PRINT-Befehl ja auch Daten an ein anderes 
Gerät gegeben werden, nämlich an den Bildschirm, ver¬ 
steht er die ASCII-Werte auch. 

Der Tabelle im Handbuch entnehmen wir zum Beispiel 
den ASCII-Wert für das A, er ist 65. Um mit dieser Zahl den 
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Buchstaben A auf den Bildschirm zu zaubern, gibt es einen 
weiteren Basic-Befehl: 

CHR$(ASCII-Wert) 

Er ist eine Abkürzung von »Character«, was auf deutsch 
»Zeichen« bedeutet. Das String-Symbol muß immer dahin¬ 
ter stehen. 


Gruppe von Befehlen, die alle mit der String-Verarbeitung 
zu tun haben. Wir werden sie noch einzeln kennenlernen. 
Der direkte Nachbar zu CHR$ ist der Befehl 
ASC (String) 

Er ist die exakte Umkehrung des CHR$-Befehls. ASC ist 
die Abkürzung von ASCII. 

Erinnern Sie sich, ich habe diesen Befehl schon kurz ver¬ 
wandt, in Lektion 13 bei der Vorführung des ASCII-Codes. 

Der Befehl wandelt das erste Zeichen des in Klammern 
stehenden Strings in seinen ASCII-Codewert um. 

—*■ PRINT ASC ("WORT") 

Diese Zeile druckt den ASCII-Wert von W aus, es ist 87. 

Basic-Befehl Nr. 16 ASC(String) 

wandelt das erste Zeichen des Strings in seinen ASCII- 
Codewert um 


Als Beispiel verwende ich die schon mehrfach geübte 
Frage nach Wiederholung oder Ende eines Programms, 
diesmal aber durch Vergleich der ASCII-Werte. 

—* 10 PRINT"PROGRAMM-ANFANG" 


(Programm) 


Basic-Befehl Nr. 15 CHR$(X) 

- wandelt die ASCII-Codezahl X in ihr entsprechendes Zei¬ 
chen um 

- die Zuordnung der ASCII-Codes und der Zeichen ist im 

Handbuch als Anhang enthalten üaer onurflfcg,,,. 10 soll das Programm beginnen _ welcheSi lnter . 

essiert uns hier nicht weiter. 


100 PRINT"NOCH EINMAL (J/N) ?' 
110 GET A$:IF A$="" THEN 110 
120 X=ASC(A$) 

130 IF X=74 THEN 10 
140 IF X < > 78 THEN 100 
150 END 


In Verbindung mit dem PRINT-Befehl sieht der 
CHR$-Befehl so aus: 

—*• PRINT CHR$(65) 

Diese Zeile, sowohl im Direkt-Modus als auch in einer 
Programmzeile, bewirkt dasselbe wie PRINT"A". Sie 
druckt den Buchstaben A auf den Bildschirm. 

Was bringt denn das, werden Sie jetzt fragen. Die gute al¬ 
te Anführungszeichen-Methode ist doch viel praktischer 
und kürzer. Aber die Methode der ASCII-Codewerte kann 
dennoch recht vielseitig sein. 

Mit Zahlen, auch mit Codezahlen, kann man nämlich 
rechnen. Geben Sie bitte folgende Zeilen ein: 

—► 10 X=64 
20 X=X+1 

30 PRINT CHR$(X)j 
40 IF X=90 THEN END 
50 GOTO 20 

In Zeile 10 geben wir der numerischen Variablen X den 
Wert 64, das ist um 1 weniger als die Codezahl des Buch¬ 
staben A. 

In Zeile 20 wird eine Zählschleife begonnen mit der Erhö¬ 
hung von X um 1. 

Zeile 30 druckt das dieser Zahl entsprechende Zeichen 
aus. Im ersten Durchlauf ist es das A. 

Zeile 50 schließt die Zählschleife durch den Rücksprung 
auf Zeile 20. Dadurch werden alle Zeichen vom Codewert 
65 bis 90 - das ist das Alphabet von A bis Z - ausgedruckt. 

Die Prüfzeile 40 wartet, bis das Z den Wert 90 erreicht 
und beendet dann das Programm. Nur mit Buchstaben in 
Anführungszeichen wäre dieses Programm recht lang ge¬ 
worden. 

Der Befehl CHR$ wird hauptsächlich bei der Verarbei¬ 
tung von Strings, also bei Erkennen, Vergleichen und Ver¬ 
ändern von Wörtern eingesetzt. Er gehört zu einer ganzen 


Am Ende dieses Programms fordert Zeile 100 zur Einga¬ 
be von JA oder NEIN auf. 

Zeile 110 enthält das gewohnte Bild der GET-Schleife, die 
wartet, bis ein Zeichen im Tastaturpuffer erscheint. 

Zeile 120 wandelt das erste Zeichen des eingegebenen 
Wortes in seinen ASCII-Code um. Aus der ASCII- 
Codetabelle wissen wir, daß dem erwarteten J die Zahl 74, 
dem N aber die Zahl 78 entspricht. Alle anderen Werte sol¬ 
len zurückgewiesen werden. 

Ist X=74, dann springt Zeile 130 an den Anfang des Pro¬ 
gramms zurück. 

Ist X nicht 78, wird durch Zeile 140 die Eingabe wieder¬ 
holt. 

Im Fall, daß X=78, fällt die Prüfung in Zeile 140 durch, und 
das Programm macht in Zeile 150 Schluß. 

Auch dieses Programm ist länger als die alte Methode, 
aber es zeigt wenigstens die Arbeitsweise von ASC. 

14.2. Das Zerteilen von Strings 

Der Befehl ASC hat den Nachteil, daß er immer nur das 
erste Zeichen des Strings zur Umwandlung nimmt. Um ein 
ganzes Wort in seine einzelnen ASCII-Codewerte zu zerle¬ 
gen, brauchen wir eine Methode, welche uns gestattet, ein¬ 
zelne Zeichen des Wortes abzuschneiden bzw. herauszu¬ 
picken. Ich müßte eigentlich String statt Wort sagen, denn 
das alles gilt natürlich auch für Zeichen und Symbole. 

Es wäre schön, wenn man dieses Abschneiden am An¬ 
fang, in der Mitte oder am Ende dieses Wortes bzw. Strings 
machen könnte. 

Basic bietet uns erfreulicherweise alle drei Möglichkeiten: 

- LEFT$ schneidet vom linken Rand des Strings Zeichen 
heraus 

- RIGHT$ tut dasselbe auf der rechten Seite 

- MID$ pickt Teile aus der Mitte des Strings heraus 
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Natürlich bieten diese Befehle auch die Möglichkeit, an¬ 
zugeben, wie viele Zeichen abgetrennt werden sollen. 

Bei LEFT$ und RIGHTS ist das nur eine einzige Zahlen¬ 
angabe. 

Bei MID$ brauchen wir zwei Zahlen. Die eine gibt an, ab 
wo herausgepickt werden soll, die zweite sagt wieviel. 

Im Beispiel wird das schnell klar: 

—► 10 A$= "MOTORHAUBENVERSCHLUSS" 

20 B$ = LEFT$(A$,5) 

30 PRINT B$ 

40 C$ = RIGHT$(A$,7) 

50 PRINT C| 

60 DS = MID$(A$,6,5) 

70 PRINT D$ 

Zeile 10 legt uns die Basis mit der Zuweisung des langen 
Wortes an die String-Variable A$. Jetzt geht's ans Be¬ 
schneiden. Mit Zeile 20 fangen wir an der linken Seite des 
Wortes an. Hinter dem Befehl LEFTS steht in der Klammer 
zuerst der String, der zerpflückt werden soll, nämlich A$. 
Die zweite Angabe - nach dem Komma - gibt an, wie viele 
Zeichen abgeschnitten werden sollen, im Beispiel sind es 
fünf. Diese fünf Zeichen ergeben gerade den neuen String 
»MOTOR«, der in Zeile 30 ausgedruckt wird. 

Die Schreibweise und Funktion von RIGHT$ ist iden¬ 
tisch, halt nur auf der rechten Seite des Wortes A$ wirkend. 
In Zeile 40 erhält dieser Teilstring den Variabiennamen C$. 
Zeile 50 druckt also die rechten sieben Zeichen des Strings 
A$ aus, was das Wort »SCHLUSS« ergibt. 

Interessant wird es in Zeile 60 beim Befehl MID$. Nach 
der Angabe des betroffenen Strings A$ steht zuerst die 
Nummer des Zeichens, ab dem von links gezählt herausge¬ 
schnippelt werden soll, die zweite Zahl daneben gibt an, 
wie viele Zeichen es sein sollen. 

In unserem Beispiel ist das sechste Zeichen von links das 
»H«, ab da fünf Zeichen weiter - inklusive des »H« - ergeben 
das Wort »HAUBE«, das in Zeile 70 ausgedruckt wird. 

Das folgende Bild soll das verdeutlichen: 


MID$(A$,6,5) 


A$= 


MO 

T 

O 

R 

H 

A 

U 

B 

E 

N 

V 

[ml 

R 

S 

C 

H 

L 

U 

S 

s 


LEFT$(A$,5) 


RIGHT$(A$,7) 


Die Frage stellt sich, ob wir aus dem Wort »DRACHEN« 
mit diesem Befehl zwei getrennte Teile herausholen und so 
zusammensetzen können, daß zum Beispiel das Wort »RA¬ 
HE« entsteht. 

Das geht!! 


MID$(A$,2,2) 


A$= 


D 

R 

A 

C 

H 

E 

N 


MID$(A$,5,2) 


Ich empfehle Ihnen, ein bißchen zu experimentieren, am 
besten mit nur einer Zeile 

—► 100 PRINT LEFT$("DRACHEN",2) 

RUN 100 

Erstaunt Sie die Schreibweise ? Das sollte jetzt eigentlich 
nicht mehr passieren. 

Der einzige Unterschied zu vorher ist, daß wir vorher den 
String zuerst einer String-Variablen zugeordnet haben, wo¬ 
durch er im Speicher aufbewahrt wird Hier schreiben wir 
den String direkt an die Stelle der Variablen, der Computer 
merkt ihn sich halt nicht. Aber mit RUN 100 können Sie 
leicht den Befehl immer wieder ausführen, nachdem Sie 
mit dem Cursor auf die Zahl gefahren sind und diese verän¬ 
dert haben. 

Genauso geht es mit dem Befehl RIGHTS, weswegen ich 
ihn hier auslasse. 

MID$ ist der kniffligste der drei Befehle. 

—*• 200 PRINT MID$( "DRACHEN",2,5) 
ergibt »RACHE«. Wenn Sie die zweite Zahl ganz weglas¬ 
sen, erhalten Sie »RACHEN«. 


Wir müssen bloß zuerst den Teil »RA« und in einem zwei¬ 
ten Schritt den Teil »HE« herauszwicken und dann beide 
Teilstrings zu einem neuen String zusammenfügen. Die fol¬ 
genden Zeilen schaffen das: 

—»■ 10 A$= "DRACHEN" 

20 X$=MID$(A$,2,2) 

30 Y$=MID$(A$,5,2) 

40 Z$=X$+Y$ 

50 PRINT Z$ 

Ich glaube, das brauche ich nicht zeilenweise zu erläu¬ 
tern. 

Jetzt soll aber noch ein bißchen Mathematik dazukom¬ 
men. Es ist ja nicht zwingend vorgeschrieben, daß die Zah¬ 
len in der Klammer hinter dem String-Befehl konstant sind. 
Schauen Sie sich das folgende Beispiel an: 

—*- 10 A$= "DRACHEN" 

onun ~* G '-=x+i 

30 B$=LEFT$(A$,X) 

40 PRINT B$ 

50 IF X=7 THEN END 
60 GOTO 20 

Dieses Programm druckt uns das folgende Muster aus: 
D 

DR 

DRA 

DRAC 

DRACH 

DRACHE 

DRACHEN 

Das Geheimnis liegt in Zeile 20, in der die Zahl der abzu¬ 
schneidenden Zeichen nicht konstant, sondern durch die 
Zählschleife mit X von 1 bis 7 hochgezählt wird. 

Und jetzt kommen wir unserem früheren Wunsch, alle 
Buchstaben eines Wortes in ihren ASCII-Code umzuwan¬ 
deln, schon näher. 

Erinnern Sie sich, diese Umwandlung liefert uns der 
ASC-Befehl, aber immer nur für den ersten Buchstaben ei¬ 
nes Wortes. Alle weiteren Buchstaben werden von diesem 
Befehl nicht berücksichtigt. 

Basic-Befehl Nr. 17 LEFT$(X$,A) 

- schneidet vom String X$ von links her A-Zeichen ab und 
bildet daraus einen neuen String 

Nr. 18 RIGHT$(X$,A) 

- macht genau dasselbe wie Nr. 17, aber von rechts her 

Nr. 19 MID$(X$,B,A) 

- schneidet vom String X$ von links her ab dem B-Zeichen 
insgesamt A-Zeichen heraus 

- bei MID$ kann die zweite Zahl »A« weggelassen werden. 
Dann schneidet es ab dem B-Zeichen den Rest des 
Strings ab 
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Was wir brauchen, ist so ein Muster: 

DRACHEN 

RACHEN 

ACHEN 

CHEN 

HEN 

EN 

N 

Mit LEFT$ geht das nicht, denn wir schneiden ja an der 
rechten Seite ab. Außerdem fangen wir mit der vollen Wort¬ 
länge von 7 an und reduzieren sie laufend. 

Also, der RIGHT$-Befehl muß her, kombiniert mit einer 
Zählschleife, die aber rückwärts zählt: 

—► 10 A$="DRACHEN" 

20 X=7 

30 B$=RIGHT$(A$,X) 

40 PRINT B$ 

50 X=X-1 

60 IF X=0 THEN END 
70 GOTO 30 

Die rückwärts zählende Schleife wird durch die Festle¬ 
gung des Anfangswertes in Zeile 20 und durch das laufen¬ 
de Vermindern der Zählvariablen in Zeile 50 gebildet. 

Um noch den ASCII-Codewert der jeweils ersten Buch¬ 
staben zu erhalten, müssen wir nur Zeile 40 erweitern zu: 
—► 40 PRINT B$ "=" ASC(B$) 

Nach dem bisherigen Ausdruck des Teilstrings B$ folgt 
das Gleichheitszeichen - als String zwischen Anführungs¬ 
zeichen gesetzt - und danach der umgewandelte Wert des 
ersten Buchstabens von B$. 

Ich muß Ihnen gestehen, daß das alles nur zur Übung 
war. Denn am elegantesten geht es mit dem Befehl MID$. 

Wir kehren wieder zur hochzählenden Schleife zurück 
und zwicken von links her der Reihe nach die Buchstaben 
heraus, immer nur einen, mit dem Befehl MID$(A$,X,1) 

—*• 10 A$= "DRACHEN" 

20 X=X+1 

30 B$=MID$(A$,X,1) 

40 PRINT B$ "=" ASC(B$) 

50 IF X=7 THEN END 
60 GOTO 20 

Es gibt noch einen STRING-Befehl, der uns das Zählen 
der Zeichenzahl für die Prüfung in Zeile 50 abnimmt. Er 
heißt 

LEN(String) 

Er ist eine Abkürzung von Length, was auf deutsch »Län¬ 
ge« heißt. Er wird seinem Namen gerecht und bestimmt die 
Länge des Strings. 

Wenn Sie direkt eingeben: 

—► PRINT LEN("DRACHEN") 

dann erhalten Sie die Zahl 7 als Resultat. 

Um ihn im obigen letzten Programmbeispiel einzuset¬ 
zen, brauchen wir lediglich die Zeile 50 ändern: 

—► 50 IF X=LEN(A$) THEN END 

So prüft sie X so lange, bis es den Wert von LEN(A$), 
nämlich 7, erreicht hat. 


Basic-Befehl Nr. 20 LEN(String) 

- gibt die gesamte Länge des Strings einschließlich der 
Leerzeichen und Steuerzeichen als Zahl aus 

- in der Klammer kann ein String oder aber eine String- 
Variable sein, der ein String zugewiesen worden ist 


14.3. Die Addition von Strings 

In Abschnitt 6.2, bei der Diskussion der String-Variablen, 
haben wir bereits mit zusammengehängten Strings experi¬ 
mentiert, unter Verwendung des PRINT-Befehls: 

saa? 


110 A$= "HOLZ " 

115 B$= "FEUER" 

120 PRINT A$B$ 

Das Resultat der Zeile 120 ist das Wort HOLZFEUER. 
Dabei ist es egal, ob Sie in Zeile 120 zwischen den beiden 
Stringvariablen ein Semikolon, einen Zwischenraum oder, 
wie oben, beide aneinanderschreiben. 

Wenn wir aber dem »HOLZFEUER« eine eigene Variable 
zuordnen wollen, müssen wir A$ und B$ addieren, unter 
Verwendung des »+«-Zeichens. 

125 C$=A$+B$ 

130 PRINT C$ 

Zeile 120 und Zeile 130 ergeben das gleiche Resultat, nur 
hat sich der Computer die neue Stringvariable C$ gemerkt; 
das Resultat der Addition ist dadurch auch noch später ver¬ 
fügbar. 

Nicht ganz so selbstverständlich wie Strings mit Buch¬ 
staben sind Strings, die aus Zahlen bestehen. 

135 x$= "7 " 

140 Y$="5" 

145 Z$=X$+Y$ 

150 PRINT Z$ 

Zeile 150 druckt die Zahl 75 aus. Bemerkenswert ist da¬ 
bei, daß in der String-Form die Ziffern ohne den sonst übli¬ 
chen freien Platz für ein eventuelles negatives Vorzeichen 
gedruckt werden. 

Wir haben in Lektion 13 gelernt, Steuerzeichen wie zum 
Beispiel »CURSOR-LINKS«, »REVERSE-ON« innerhalb 
von Anführungszeichen in unsere Programme einzubau¬ 
en. Nun, da diese auch Strings darstellen, können wir sie 
ebenfalls mit anderen Strings zusammensetzen. 

155 L$=" [CTRL+RVS-ON]" 

■ine* i60 M$= " jCTRL+RVS-OFF)]" 

165 PRINT L$+B$+M$+A$ 

Zeile 165 druckt das Wort FEUERHOLZ aus, wobei der 
Wortteil FEUER in reverser Darstellung erscheint.Zuguter- 
letzt sollen die Zeilen 170 bis 195 zeigen, daß auch die Gra¬ 
fikzeichen, die vorn auf den Tasten stehen und auf die mit 
der SHIFT- oder der CBM-Taste umgeschaltet wird, als 
Strings addiert werden können. 

170 Q$=" [SHIFT+O/CBM+Y/SHIFT+P) " 

175 R$=" {3mal CRSR-LINKS] " 

180 S$=" (CRSR-DOWNj " 

185 T$=" (SHIFT+L/CBM+P/SHIFT+@)" 

190 U$=Q$+R$+S$+T$ 

195 PRINT U$ 

In Zeile 190 wird eine Stringvariable U$ definiert, die aus 
sechs Zeichen und mehreren Cursorbewegungen besteht, 
wodurch ein Rechteck gezeichnet wird. In Zeile 195 wird 
dieses Rechteck ausgedruckt. 

Wenn wir die Zeile 195 so abändern: 

195 PRINT U$;:G0T0 195 

wird in einer »ewigen« Schleife das Rechteck diagonal über 
den Bildschirm gedruckt. 


Merken wir uns: 

1. Durch Addition von einzelnen Strings werden neue, län¬ 
gere Strings gebildet. 

2. Aus einzelnen Buchstaben pro Variable entstehen so 
einzelne Wörter pro Variable, aus diesen wiederum ein 
ganzer Satz pro Variable. 

3. Eine String-Variable kann maximal 255 Zeichen enthal¬ 
ten. 

Eine derart zusammengesetzte String-Variable kann aus 
Buchstaben, grafischen Zeichen, Ziffern und Steuerzei¬ 
chen bestehen. 
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Die aus einzelnen Zeichen zusammengesetzte Form 
wird wie ein einzelnes neues Zeichen behandelt! 

Diese Additionsmethode für Strings kann in vielen Pro¬ 
grammarten sehr sinnvoll eingesetzt werden. 

14.4. Der Größenvergleich von Strings 

Beim Stringvergleich mit > und < muß der Programmie¬ 
rer wissen, was einen »größeren« String ausmacht. Ich 
möchte es Ihnen mit einem kleinen Versuch deutlich ma¬ 
chen. 

310 INPUT "STRING #1";A$ 

320 IF A$=" THEN END 
330 INPUT "STRING #2";B$ 

Wir geben also zwei Strings in den Zeilen 310 und 330 
ein. Zeile 320 erlaubt uns den Aussprung aus der Schleife 
mit der Klammeraffen-Taste. 

Jetzt vergleichen wir die beiden Strings: 

340 IF A$ > B$ THEN PRINT "#1" 

350 IF A$ < B$ THEN PRINT "#2" 

360 GOTO 310 

Die Vergleiche in Zeile 340 und 350 wählen beide den 
größeren String zum Ausdrucken aus. 

Lassen Sie das Programm laufen und experimentieren 
Sie ein bißchen. 

Sie werden zum Beispiel sehen: 

»A« ist größer als »B« 

»ACB« ist größer als »ABC« 

»TISCHE« ist größer als »TISCH« 

»WORT 2« ist größer als »WORT 1« 

Ich will Ihnen verraten, was der Computer macht. 

Er vergleicht die ASCII-Codewerte der einzelnen Buch¬ 
staben von links aus. Zur Erinnerung, der ASCII-Co 


Der eine der beiden heißt VAL(A$). Sein Name ist von VA- 
LUE (Wert) abgeleitet. Er wandelt A$ in einen Zahlenwert 
um, falls überhaupt in A$ eine Zahl vorkommt. 

20 PRINT VAL(A$) 

Diese Zeile druckt ebenfalls die Zahl 123 aus, aber eben 
als Zahl, das heißt mit einer Leerstelle vor ihr. 

Ist in dem String keine Zahl enthalten, dann wird der Wert 
Null ausgegeben. 

25 B$= "ABC " 

30 PRINT VAL(B$) 

Wenn wir statt »ABC« den String »A2C« schreiben, er¬ 
halten wir immer noch Null, weil der String mit einem Buch¬ 
staben anfängt. 

Ist B$ aber »12C«, dann ergibt der VAL-Befehl die Zahl 12. 

Basic-Befehl Nr. 21 VAL(A$) 

- Der Befehl VAL(A$) liefert den numerischen Wert von A$ 

- Dieser String kann sowohl in dem $-Zeichen als auch in 
Anführungszeichen geschrieben sein 

- VAL(A$) fragt den String A$ Zeichen für Zeichen nach ei¬ 
ner Zahl ab. Ab dem ersten Zeichen, das keine Zahl ist, 
stoppt er die Suche und verwendet den Wert des bisheri¬ 
gen Teils weiter 

- Wenn der String A$ keine Zahlen enthält, wird der Wert 0 
gebildet 


ne Zahl, mit der der Computer ein Zeichen intern kenn¬ 
zeichnet (siehe Lektion 13). 

Das A hat den ASCII-Wert 65, B den Wert 66, C den Wert 
67. Sowohl bei ACB als auch bei ABC ist das erste Zeichen 
gleich, aber von den zweiten Zeichen ist C größer als B. Im 
Beispiel TISCHE-TISCH macht das zusätzliche E den Un¬ 
terschied im String 2. 

Beim Vergleich von WORT 2 mit WORT 1 hat die Ziffer 2 
einen höheren ASCII-Codewert als die Ziffer 1. 

Das Beispiel oben zeigt, daß natürlich auch Zahlen- 
Strings größer oder kleiner sein können, genauso wie ge¬ 
mischte Strings (WORT 2). 


Die Umkehrung von VAL ist der Befehl STR$(X), abgelei¬ 
tet von STRING. Er wandelt die Zahl X in einen String um. 
Wozu das gut ist, zeigen uns die nächsten Zeilen: 

35 X=123 
ei- ',0 Y=456 

45 PRINT X+Y 

Das Resultat der Zeile 45 ist natürlich die Summe der bei¬ 
den Zahlen, also 579, mit einer Leerstelle ausgedruckt. 

50 PRINT X;Y 

Diese Zeile dagegen setzt beide Zahlen nebeneinander, 
getrennt durch zwei (!) Leerstellen, eine für das Vorzeichen, 
die zweite für die Trennung zweier unabhängiger Zahlen: 

123 456 

Diese zweite Trennung heben wir auf mit der Verwen¬ 
dung des STR$-Befehls: 

55 PRINT STR$(X);STR$(Y) 

Wir erhalten: 


Merken wir uns: 

1. Werden Strings miteinander verglichen, vergleicht der 
Computer schrittweise die ASCII-Codewerte der einzel¬ 
nen Zeichen. Die erste Ungleichheit entscheidet, wobei 
dann der String mit dem höheren ASCII-Codewert »grö¬ 
ßer« ist. 

2. Da der Stringvergleich sich auf ASCII-Codewerte be¬ 
zieht, wird kein Unterschied gemacht zwischen Buch¬ 
staben, Zeichen oder Ziffern. 


14.5. Verwandlung von Strings und Zahlen 

Im Abschnitt 14.3 haben wir gesehen, daß Zahlen als 
Strings verarbeitet werden, wenn sie in Anführungszeichen 
stehen. Das hat unter anderem den Vorteil, daß kein Leer¬ 
zeichen für das Vorzeichen reserviert wird. 

10 A$="123" 

15 PRINT A$ 

druckt die Zahl ganz an den linken Rand. 

Es gibt zwei Befehle, die uns erlauben, Strings in Zahlen 
und Zahlen in Strings zu verwandeln: 


123 456 

Aber Sie sehen, daß X und Y immer noch Zahlen sind, 
obwohl sie über STR$ als Strings behandelt werden. 

Erst die Zeile: 

60 PRINT "123";"456" 

macht echte Strings aus den Zahlen und vermeidet alle 
Zwischenräume. 

123 456 

Leider können wir in dieser Version mit den Zahlen nicht 
mehr rechnen. Mit STR$ geht das aber, was die nächsten 
Zeilen 65 bis 75 zeigen. 

65 F0R Z=0 T0 2 

70 PRINT STR$(X+Z);STR$(Y) 

75 NEXT Z 


Basic-Befehl Nr. 22 STR$(X) 

- der Befehl STR$(X) bildet aus dem Wert der Zahl X einen 
String 

- dieser String behält die Leerstelle für das Vorzeichen 


Wir erhalten die Zahlenreihen 

123 456 

124 456 

125 456 
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15 


Ein Programm mit den 
String-Befehlen 


Ich möchte mit Ihnen zusammen ein zweites Programm 
entwickeln, welches hauptsächlich die Stringbefehle ver¬ 
wendet und Ihnen ein bißchen Erfahrung in der String- 
Verarbeitung gibt. 



Aufgabe: 

Im ersten Teil des Programms sollen eingegebene Wör¬ 
ter in einen Geheimcode umgewandelt werden. Die ver¬ 
wandelten Wörter stehen alle auf dem Bildschirm. 

Per Tastendrucksoll dann der zweite Programmteil ange¬ 
sprungen werden, in dem die einzelnen Codewörter wieder 
in ihre ursprüngliche Form zurückgewandelt (decodiert) 
werden. 

Der übersichtlichen schrittweisen Darstellung zuliebe 
verzichte ich auf ein Flußdiagramm. Wir »hacken« uns also 
durch. 

Die Eingabe der Wörter machen wir zuerst über den 
GET-Befehl. Sie wissen, daß der GET-Befehl immer nur ein 
Zeichen annimmt, aber keine ganzen Wörter. Wir müssen 
also erst eine Schleife bauen, um die einzelnen Zeichen zu 
einem Wort zusammenzusetzen. 

100 GET W$: IF W$="" THEN 100 
120 PRINT W$; 

130 A$=A$+W$ 

150 GOTO 100 

Zeile 100 ist die übliche Eingabe-Warteschleife mit GET. 

Zeile 120 druckt jedes einzelne Zeichen W$ mit dem Se¬ 
mikolon aneinandergeklebt aus. 

Zeile 130 ist etwas Neues. Es wird ein String mit Namen 
A$ dadurch gebildet, daß zu seinem jeweiligen Zeichen - 
am Anfang ist keines da - das gerade eingegebene Zei¬ 
chen W$ dazugenommen wird. Auf diese Weise entsteht 
ein ganzes Wort A$. 

Der Rücksprung in Zeile 150 läßt dieses Wort unendlich 
lange werden. 

Wir brauchen also am Ende des Wortes einen Aussprung 
aus der Schleife. Ich schlage vor, das Wort mit der 
RETURN-Taste zu beenden. Deshalb müssen wir in Zeile 
140 den ASCII-Code der RETURN-Taste abfragen. Er ist 13. 

140 IF W$=CHR$(13) THEN 170 
170 PRINT"**" 

Die Abfrage kennen wir schon. Sie springt nach 170, wo 
vorläufig zum Ausprobieren zwei Sterne ausgedruckt wer¬ 
den. 


Codier-/De<odier-Algorithmus 


»Algorithmus« ist die Bezeichnung für einen logischen Vor¬ 
gang oder eine Formel, in unserem Fall die Vorschrift, nach 
der das Wort A$ verschlüsselt werden soll. 

Ich habe einen sehr leichten Algorithmus gewählt: 

Der ASCII-Codewert jedes Zeichens wird um die Zahl 
seines Platzes im Wort erhöht, der erste Buchstaben um 1, 
der zweite Buchstaben um 2 und so weiter. 

Das Decodieren geht entsprechend, indem immer die 
Platz-Ziffer abgezogen wird. 

Also müssen wir zuerst das Wort A$ in seine ASCII- 
Codewerte umwandeln. Das haben wir schon einmal ge¬ 
macht. 

In Zeile 160 gebe ich ein Wort für A$ vor, aber nur zum 
Ausprobieren. 

160 A$="WERT" 

170 X=X+1 

180 A=ASC(MID$(A$,X,1)) 

190 B=A+X 
195 PRINT B 

220 IF X < > LEN(A$) THEN 170 

A$ in Zeile 160 sei also das fertig eingegebene Wort. 

Die Zeilen 170 und 220 bilden eine Zählschleife, deren 
Variable X von 1 bis zur Länge des eingegebenen Wortes 
A$ zählt und am Ende weiterspringt. In unserem Beispiel ist 
LEN(A$)=4 Buchstaben. 

Zeile 180 kennen Sie schon. Sie wandelt jeden Buchsta¬ 
ben des Wortes A$ - einzeln wegen der letzten Ziffer 1 - von 
links ab dem X-Zeichen in seinen ASCII-Code um. 

Zeile 190 ist die eigentliche Verschlüsselung oder Codie¬ 
rung. Hier wird eine Variable B dadurch gebildet, daß zum 
ASCII-Wert »A« des gerade umgewandelten Zeichens »A$« 
der jeweilige Wert von X dazugezählt wird. 

Zeile 195 ist eingeschoben, um die neuen ASCII-Werte 
auszudrucken. 

Starten Sie diesen Teil mit RUN 160, und Sie erhalten die 
neue Zahlenfolge 88, 71, 85 und 88. 

Jetzt nehmen wir Zeile 160 heraus, oder besser noch, wir 
wandeln sie in eine REM-Zeile zur Schönschrift um. 

Sie können jetzt mit RUN das Ganze laufen lassen, näm¬ 
lich Eingabe eines Wortes bis zum Ausdruck der neuen Co¬ 
dezahlen. Jetzt allerdings erhalten Sie immer eine Zahl 
mehr, als Zeichen eingegeben wurden. Diese zusätzliche 
Zahl entsteht durch die RETURN-Taste. 

Die nächsten drei Zeilen wandeln die verschlüsselten 
Codezahlen »B« in Buchstaben »B$« zurück und setzen sie 
zu einem verschlüsselten Wort »C$« zusammen. 

—► 200 B$=CHR$(B) 

210 C$=C$+B$ 

240 PRINT C$ 

Mit RUN erhalten Sie jetzt auch das verschlüsselte Wort 
ausgedruckt. 

Um mehrere Wörter eingeben zu können, bilden wir mit 
dem GOTO-Befehl der Zeile 260 eine Schleife. Zeile 195 
kann jetzt entfernt werden. 

—► 195 

260 GOTO 100 

Ein neuer Versuch klappt allerdings nicht. 

Die Eingabe eines zweiten Wortes stößt auf Schwierig¬ 
keiten. Der Grund dafür liegt darin, daß das erste Wort A$ 
noch vorhanden ist. Wir müssen es einfach löschen. Und 
weil wir gerade beim Korrigieren sind: Auch die Zählvaria¬ 
ble X muß vor der nächsten Eingabe auf 0 gesetzt werden. 
Der letzte Fehler besteht darin, daß in Zeile 220 der LEN- 
Befehl immer ein Zeichen mehr mißt, weil ja die RETURN- 
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Taste am Ende des eingegebenen Wortes für ihn auch als 
Zeichen gewertet wird. 

Hier bietet sich zusätzlich die Gelegenheit, für die 
Schönschrift der Ausgabe etwas zu tun. Mir gefällt nämlich 
nicht, daß beim Ausdrucken zwischen den codierten Wor¬ 
ten kein Zwischenraum gelassen wird. Ich schiebe daher 
die Zeile 230 vor den PRINT-Befehl, um an den bestehen¬ 
den String »C$« - das codierte Wort - ein Leerzeichen mit 
dem ASCII-Code 32 anzuhängen. 

Die folgenden Zeilen korrigieren das alles. 

—*• 220 IF X <> LEN(A$)-1 THEN 170 
230 C$=C$+CHR$(32) 

250 A$="" 

260 X=0: GOTO 100 

In Zeile 220 prüft der IF-THEN-Befehl auf ein Zeichen we¬ 
niger, als das Wort plus RETÜRN-Taste lang ist. Zeile 250 
zeigt, wie man eine Stringvariable durch Zuweisung eines 
Nullstrings löscht. Dasselbe tut Zeile 260 mit der numeri¬ 
schen Variablen X. 

Jetzt läuft der erste Programmteil, der aus einem einge¬ 
gebenen Wort ein verschlüsseltes Wort baut. Wir erhalten 
zum Beispiel für das Wort »WERT« den Code »XGUX«. 

Das Decodieren stelle ich mir so vor, daß der Benutzer 
per Tastatur die Codes eingibt, welche er entschlüsseln 
will. Das wollen wir zur Übung diesmal mit INPUT machen. 
—► 280 INPUT E$ 

Die nächsten Zeilen gleichen weitgehend den Zeilen 170 
bis 260, da der Vorgang ja fast identisch ist. Eine Ausnahme 
ist die Zeile 190, da wir zum Decodieren ja die Zählvariable 
X abziehen müssen. Außerdem habe ich die beiden Zeilen 
200 und 210 zu einem Ausdruck zusammengefaßt. Und 
schließlich braucht dem LEN-Befehl keine 1 abgezogen 
werden, da beim INPUT-Befehl im Gegensatz zum GET die 
eingegebene RETURN-Taste nicht zum Wort dazugerech¬ 
net wird. Also sieht das Decodieren so aus: 

—► 280 INPUT E$ 

290 X=X+1 

300 E=ASC(MID$(E$,X,1)) 

310 D=E-X 

320 D$=D$+CHR$(D) 

330 IF X < > LEN(E$) THEN 290 
340 D$=D$+CHR$(32) 

350 PRINT D$ 

360 E$="" 

370 X=0:GOTO 280 

Mit RUN 280 können Sie diesen Programmteil separatte- 
sten. Jetzt müssen wir die beiden Teile noch zusammenbin¬ 
den. Ich stelle mir vor, daß es praktisch ist, nach einigen ein¬ 
gegebenen Wörtern diese zu decodieren. Das Signal dazu 
soll die Funktionstaste <F1 > sein. Die Arbeitsweise der 
Funktionstasten haben wir noch nicht durchgenommen. 
Springen Sie bitte auf die Lektion 16, bevor Sie mit diesem 
Programm weitermachen. 

Wenn die Funktionstaste gedrückt wird, soll das Pro¬ 
gramm vom Codierteil auf den Decodierteil springen. 

Diese Prüfung müssen wir ganz am Anfang des Codier¬ 
teils vornehmen, und die GET-Eingabeschleife bietet sich 
dazu in hervorragender weise an. Wir schieben also die fol¬ 
genden drei Zeilen ein: 

—► 110 IF W$=CHR$(133) THEN 270 
270 PRINT"DECODIEREN" 

285 IF E$="ENDE" THEN END 

Zeile 110 verwendet den ASCII-Code von 133 der 
Fl-Taste, um auf die Zeile vor dem INPUT-Befehl zu sprin¬ 
gen (270), wo ein Hinweis ausgedruckt wird. 

Die Zeile 285 beendet auf simple Weise das Programm. 
Das einzige, was nicht passieren darf ist, daß das Wort »EN¬ 
DE« als codierter Wert auftritt. 


Merken wir uns: 

1. Eine String-Variable kann dadurch »gelöscht« werden, 
daß man ihr einen Null-String zuweist mit dem Befehl 
A$= "". 

Das entspricht dem Nullsetzen einer numerischen Va¬ 
riablen mit X=0 

2. Funktionstasten und andere Steuertasten, die nicht auf 
dem Bildschirm erscheinen, können nur mit dem GET- 
Befehl abgefragt werden. 

3. Ein String kann durch Hinzufügen von anderen Strings 
zu einem größeren String gleichen Namens erweitert 
werden: A$=A$+B$ 


Zur Bedienung des Programms ist zu sagen, daß Sie 
beim Decodieren lediglich die auf dem Bildschirm stehen¬ 
den verschlüsselten Wörter einzeln ablesen und eintippen 
müssen. 

Wem das zu mühsam ist, soll ein Programm für die auto¬ 
matische Decodierung schreiben ! 

In Listing 2 ist das komplette Programm wiedergegeben, 
auch hier mit den Prüfsummen der Eingabehilfe »Check¬ 
summer 64 V3«. 

Und jetzt kommen im Nachtrag die Funktionstasten an 
die Reihe. 



Die Funktionstesten 


Ich möcL.e gern einen Rücksprung machen zu der Tabelle 
der Steuertaste und ihrer ASCII-Codewerte. 

Da sehen Sie als untersten Block die Funktionstasten 
< Fl > bis < F8> angegeben. In diesem Kurs werden sie 
da praktisch zum ersten Mal erwähnt. Jetzt wird es langsam 
Zeit, näher darauf einzugehen. 

Wenn Sie eine der Funktionstasten drücken, passiert be¬ 
kanntlich gar nichts - oder doch? 

Nun, sie haben einen eigenen ASCII-Code. Mit einem 
kleinen Programm, das wir bei der Besprechung der ASCII- 
Codes verwendet haben, können wir diese Behauptung 
hier noch einmal überprüfen. Das Programm sah so aus: 
—► 10 INPUT A$ 

20 A=ASC(A$) 

30 PRINT A 
40 GOTO 10 

Nicht nur die Funktionstasten, sondern auch alle ande¬ 
ren Steuertasten geben so ihren ASCII-Code preis. 

Diesen Code können wir zur Abfrage der Tasten, ob sie 
nämlich gedrückt worden sind, verwenden. 

Fügen Sie bitte die folgende Zeile 35 ein: 

—*• 35 IF A=65 THEN PRINT "SERVUS" 

Das Programm funktioniert wie vorher, nur wenn wir das 
»A« drücken, dessen ASCII-Code 65 ist, wird der freundli¬ 
che Gruß ausgedruckt. Statt 65 können Sie jeden beliebi¬ 
gen Codewert verwenden und damit das Drücken der ent¬ 
sprechenden Taste abfragen. 

Halt! Das stimmt nicht ganz. Denn wenn Sie in Zeile 35 
den Codewert einer der Funktionstasten eingeben, rührt 
sich kein SERVUS. 

Warum nicht? 

Vielleicht erinnern Sie sich, daß im Unterschied zum 
GET-Befehl, der im Tastaturpuffer nachschaut, ob dort ein 
Zeichen abgespeichert ist, der INPUT-Befehl alle einge¬ 
gebenen Zeichen erst auf den Bildschirm bringt und sie von 
dort dann weiterverarbeitet. 


78 


SONDERHEFT 40 










C64 


BASIC-KURS 


Das ist des Rätsels Lösung, denn die Funktionstasten 
hinterlassen halt keine Spur auf dem Bildschirm, genauso 
wenig wie alle anderen Steuertasten. Das heißt, zu deren 
Abfrage müssen wir den GET-Befehl nehmen. 

Ändern wir also die Zeile 10 ab: 

—*• 10 GET A$:IF A$="" THEN 10 
Jetzt geht es!! 

Zur Demonstration der Abfrage der Funktionstasten ha¬ 
be ich unser kleines Programm wie folgt erweitert: 

—*• 10 GET A$:IF A$="" THEN 10 

20 A=ASC(A$) 

30 PRINT A 

35 IF A=133 THEN PRINT CHR$(158) 

36 IF A=134 THEN PRINT CHR$(154) 

37 IF A=135 THEN PRINT CHR$(19) 

38 IF A=136 THEN PRINT CHR$(l47) 

40 GOTO 10 

Die Zeilen 35 bis 38 bilden einen Abfrageblock für die vier 
Funktionstasten <F1>, <F3>, <F5> und <F7>. 

Wenn ihr ASCII-Code auftritt, dann drucken sie das Zei¬ 
chen des hinter dem jeweiligen CHR$-Befehl stehenden 
Codewertes aus. Da diese Codewerte aber die Werte der 
Steuerzeichen - der Reihe nach - GELB, HELLBLAU, 
CURSOR HOME und BILDSCHIRM LÖSCHEN sind, wer¬ 
den diese Funktionen ausgeführt. 

Das ist also das Kochrezept zur Nutzbarmachung der 
Funktionstasten. Aber auch alle anderen Tasten können so 
abgefragt und zur Steuerung irgendwelcher Programm¬ 
schritte verwendet werden. Wir werden diese Methode 
auch noch benützen. 

Übrigens, wenn Sie nur eine einzige Taste abfragen, de¬ 
ren Codewert aber nicht ausdrucken beziehungsweise 
nicht weiterverwenden, geht die Abfrage von oben dadurch 


10 PRINT"»*** KODIEREN/DEKODIEREN **** 

<206> 

20 : 

<252> 

30 = 

<006> 

100 GET U$:IF US-"“ THEN 100 

<160> 

110 IF W$=CHR$(133) THEN 270 

<068> 

120 PRINT WSi 

<065> 

130 A$=A$+W$ 

<248> 

140 IF W$=CHRS(13) THEN 170 

<142> 

150 GOTO 100 

<078> 

160 REM--- 

<253> 

170 X=X+1 

< 198> 

180 A=ASC(MIDS < AS.X,1)> 

<070> 

190 B-AtX 

<219> 

200 BS-CHRS(B) 

<105> 

210 CS=C$+B$ 

<123> 

220 IF XoLEN< AS)-1 THEN 170 

<233> 

230 C$=C$*CHR$(32) 

<011 > 

240 PRINT CS 

< 178> 

250 A$="" 

<023> 

260 X=0:GOTO 100 

<208> 

265 REM.-.. 

<254> 

270 PRINT"DEKODIEREN" 

<014> 

280 INPUT ES 

<156> 

285 IF ES="ENDE" THEN END 

<191> 

290 X=X+1 

<064> 

300 E-ASC(MIDS(ES,X.1> > 

<212> 

310 D=E-X 

<189> 

320 D$=I)$+CHR$<D> 

<246> 

330 IF XoLEN< ES) THEN 290 

< 117> 

340 D$=I)$+CHRS < 32) 

<159> 

350 PRINT D$ 

<042> 

360 E$="" 

<151> 

370 X-0:GOTO 280 
® 64'er 

< 19 9 > 

Listing 2. Codieren und Decodieren mit den String- 

Befehlen 



schneller, daß Sie den String gar nicht erst lange umwan¬ 
deln: 

—► 10 GET A$: IF A$="" THEN 10 

35 IF A$=CHR$(133) THEN PRINT CHR$(150) 

Die Prüfzeile 35 vergleicht einfach den eingegebenen 
String A$ mit dem String, der dem ASCII-Code 133 ent¬ 
spricht - der CHR$-Befehl macht das möglich. Nur bei vie¬ 
len Abfrage-IFs ist das Tippen der vielen CHR$ mühsam 
und die ASC-Methode von vorher hat ihre Berechtigung. 



Es gibt Situationen im Programmierleben, in denen es wün¬ 
schenswert wäre, auf einen ganzen Stall voll Zahlen oder 
Wörter zurückgreifen zu können, ohne sie jedesmal per IN¬ 
PUT oder GET mühsam in den Computer eingeben zu 
müssen. Einmal eingegeben, sollten sie immer zur Verfü¬ 
gung stehen. 

Diese Anforderung zeigt deutlich in Richtung »Speiche¬ 
rung von Daten« im Computer. Nun, wenn wir einer String- 
Variablen in einer Befehlszeile einen String zuordnen, wird 
dieser bekanntlich auch gespeichert. Aber das würde dazu 
führen, daß wir beispielsweise fünf Zuordnungen machen 
müßten, um fünf Strings zu speichern, etwa so: 

—► 10 A$="BUCH" 

20 B$="SCHULTER" 

30 C$="SCHIFF" 

40 D$="TISCH" 

50 E$="MALEREI" 

Bei fünf Strings geht es noch, aber bei 30 oder gar bei 
200? Diesen Notstand stellt Basic ab mit dem Befehl 

DATA 

Hinter diesem Befehl können in einer Befehlszeile so viel 
Zahlenwerte oder Strings geschrieben und dadurch ge¬ 
speichertwerden, wie in einer Programmzeile Platz haben. 

Alle Eintragungen in einer DATA-Zeile müssen durch 
Kommata getrennt sein. 

Das Beispiel oben, das Sie bitte vor der Eingabe der 
nächsten Zeilen mit NEW löschen sollten, sieht jetzt so aus: 
—► 10 DATA BUCH,SCHULTER,SCHIFF,TISCH,MALEREI 

Sie sehen, die Strings brauchen nicht in Anführungs¬ 
zeichen stehen, mit einer Ausnahme. Diese ist weiter unten 
im Kasten beschrieben. 
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Eine DATA-Zeile mit Zahlen sieht so aus: 

—► 20 DATA 25,123,225,16,24 
Jetzt muß noch geklärt werden, wie man eigentlich die 
gespeicherten Daten herausholen kann. 

Nun, das geht erstens immer der Reihe nach, und zwei¬ 
tens mit dem Basic-Befehl 

READ 

was leicht und treffend mit »LESEN« übersetzbar ist. Pro¬ 
bieren wir es: 

—► 40 READ A$ 

50 PRINT A$ 

Nach RUN druckt das Programm das erste der Wörter in 
der DATA-Zeile, nämlich »BUCH« aus. An die anderen kom¬ 
men wir nicht heran. 

Wenn Sie in Zeile 40 und 50 die Variable in eine numeri¬ 
sche Variable verwandeln, kommen wir trotzdem nicht an 
die Zahlen. Zusätzlich bestraft uns der Computer mit einer 
Fehlermeldung. 

Bauen wir also eine Schleife ein, um den READ-Befehl 
fünfmal zu wiederholen. 

—► 30 F0R X=1 TO 5 
60 NEXT 

Jetzt tauchen alle fünf Wörter auf. Eine Erhöhung der 
Schleifenvariablen X auf 6 quittiert der Computer nach 
RUN wieder mit einer Fehlermeldung, da wir mit der String¬ 
variablen A$ in den Bereich der Zahlen eingedrungen sind, 
wodurch Variablentyp und Wert nicht zusammenpassen. 

Eine zweite Schleife schafft Abhilfe: 

—*• 70 FOR X=1 TO 5 
80 READ A 
90 PRINT A 
100 NEXT 

Wenigstens soweit haben wir es gebracht, daß wir alle 
gespeicherten Daten aus dem Speicher holen können. 

Erproben Sie noch durch eine Erhöhung des Endwertes 
der Schleife in Zeile 70 auf 10, was passiert, wenn wir mehr 
Daten READen wollen, als vorhanden sind. Sie werden 
merken, daß das nicht geht, weniger dagegen schon. 

Wir wollen uns jetzt auf nur einen Datentyp beschränken. 
Löschen Sie bitte die Zeilen 70 bis 100. 

Ein weiteres Experiment besteht darin, den READ- 
Vorgang endlos zu wiederholen mit einer neuen Zeile 70. 
—► 10 DATA BUCH,SCHULTER,SCHIFF,TISCH,MALEREI 
30 FOR X=1 TO 5 
40 READ A$ 

• 50 PRINT A$ 

60 NEXT 
70 GOTO 30 

Auch dieser Versuch schlägt fehl. 

Der Grund dafür liegt im Verfahren des READ-Befehls, 
nämlich einen internen Zähler mitlaufen zu lassen, der an¬ 
zeigt, auf das wievielte Wort der READ-Befehl zugreifen 
muß. Und im obigen Fall ist dieser Zähler durch die Wieder¬ 
holung mit GOTO 30 über die vorhandenen fünf Wörter hin¬ 
ausgelaufen. 

Ein zu READ-DATA gehörender Basic-Befehl stellt die¬ 
sen Zähler wieder an seinen Anfang zurück. Der Befehl lau¬ 
tet: 

RESTORE 

was soviel heißt wie »wiederherstellen«. Oben vor den 
GOTO-30-Befehl gestellt, setzt RESTORE in der Tat alles 
zurecht: 

—► 65 RESTORE 

Die jetzt erreichte Endlos-Schleife kann mit der STOP- 
Taste abgewürgt werden. 

Ein lustiges Experiment will ich Ihnen noch zeigen, bevor 
wir ein weiteres Programm angehen. 


Basic-Befehle Nr. 23, 24 und 25 READ, DATA und 

RESTORE 

- mit DATA können beliebig viele Zahlen und Strings in ei¬ 
nem Programm gespeichert werden 

- sie stehen hinter dem DATA-Befehl, durch Kommata von¬ 
einander getrennt 

- Strings brauchen nicht zwischen Gänsefüßchen stehen, 
es sei denn, sie enthalten als Teil des Strings ein Komma 
oder ein Semikolon. Da diese besondere Steuerzwecke 
erfüllen, muß in diesem Fall der String zwischen Gänse¬ 
füßchen gesetzt werden 

- mit dem Befehl READ werden die Daten der Reihe nach 
gelesen. Datentyp und Variablentyp müssen einander 
entsprechen 

- sollen die Daten mehrfach ausgelesen werden, muß mit 
RESTORE der Anfangszustand des Auslesens herge¬ 
stellt werden 


Schreiben Sie die FOR-NEXT-Zeile 30 so wie ange¬ 
geben und vertauschen Sie NEXT mit PRINT A$. 

—► 30 FOR X=1 T0 INT(RND(0)#5)+1 
40 READ A$ 

50 NEXT 
60 PRINT A$ 

70 RESTORE 
80 GOTO 30 

Zeile 30 müßte Ihnen bekannt Vorkommen. Die obere 
Grenze der Schleife wird jetzt per Zufall bestimmt. Sie kann 
nach unserem Kochrezept von früher die Werte 1 bis 5 an¬ 
nehmen, aber wie gesagt, vom Zufall bestimmt. 

Da der PRINT-Befehl erst nach der Schleife kommt, 
druckt nicht alle Wörter, sondern nur das zuletzt gelese¬ 
ne aus. Wir können somit eine zufällige Auswahl aus der 
Menge der gespeicherten Wörter treffen, was wir gleich 
beim nächsten Programm verwenden werden. 



Das Programm stammt ebenfalls aus dem schon mehrfach 
zitierten Buch »Computerspiele und Knobeleien« von Rüdi¬ 
ger Baumann. 
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Aufgabe: 

- Der Computer hat viele Begriffe gespeichert. In unserem 
Fall sind es 14 Sportarten. 

- Per Zufallsgenerator wird einer der Begriffe ausgewählt. 
Nur seine Länge wird dem Spieler durch Punkte bekannt¬ 
gegeben. 

- Der Spieler rät einen Buchstaben. 

- Das Programm vergleicht diesen Buchstaben mit allen 
Buchstaben des Begriffes und schreibt den Buchstaben 
auf die richtigen Plätze, falls es eine Übereinstimmung 
feststellt. 

- Der Vorgang wird so lange wiederholt, bis das Wort erra¬ 
ten ist. 

- Zum Abschluß gibt der Spieler das komplette Wort ein. 
Ich möchte das in Listing 3 abgedruckte Programm 

blockweise mit Ihnen durchgehen. 

Zeile 10 löscht den Bildschirm - diesmal mit dem ASCII- 
Code! 

Die Zeilen 80 bis 180 enthalten mit PRINT-Befehlen die 
Spielanleitung. 

In den DATA-Zeilen 730 bis 760 sind die Sportarten ge¬ 
speichert. 

In den Zeilen 240 bis 260 wird in der vorher schon ver¬ 
wendeten Art und Weise per Zufall eine Sportart U$ ausge¬ 
wählt. 

Zeile 290 mißt die Länge des Wortes U$. Die Zeile 300 er¬ 
findet ein Hilfswort H$, welches am Anfang nur aus Punk¬ 
ten besteht, und zwar aus genauso vielen, wie der Sportbe¬ 
griff lang ist. 

Jetzt folgt der erste Versuch. 

Zeile 370 druckt als Eingabebereitschaftszeichen 
(»Prompt« genannt) das punktierte Hilfswort H$ aus, um die 
Länge anzuzeigen. 

In Zeile 390 wird per INPUT ein Buchstaben L$ angefor¬ 
dert und eingegeben. Wird gleich das ganze Wort eingege¬ 
ben und ist es richtig, springt die Zeile 400 auf den Ab¬ 
schnitt der Entscheidung über Spielwiederholung ab Zeile 
600. 

Zeile 410 ist die Sicherung gegen unbeabsichtigtes 
Drücken der RETURN-Taste ohne Eingabe. 

Der schwierigste Teil des Programms ist der Vergleich 
des eingegebenen Buchstabens mit dem vorgegebenen 
Sportbegriff. Er beginnt ab Zeile 610. 

Zeile 480 und 530 bilden eine Zählschleife in der Länge 
des vorgegebenen Sportbegriffs U$. Innerhalb dieser 
Schleife holt Zeile 490 die einzelnen Buchstaben aus dem 
Wort U$ heraus - mit der Methode des MID$-Befehls. Zeile 
500 macht dasselbe im Gleichtakt für das (gepunktete) 
Hilfswort H$. 

Zeile 500 vergleicht jetzt zuerst den eingegebenen - ge¬ 
ratenen - Buchstaben L$ mit jedem einzelnen Buchstaben 
B$ des Wortes U$. Ist er identisch, wird ein neues Hilfswort 
N$ aus dem richtig geratenen Buchstaben L$ gebildet. War 
der Buchstabe falsch, dann wird aus dem Hilfswort H$ ein 
Punkt in das neue Hilfswort N$ übernommen. 

Das wird für alle Stellen der gleich langen Wörter U$ und 
H$ gemacht. 

Danach wird in Zeile 540 das Hilfswort N$, das jetzt viel¬ 
leicht schon eine Kombination aus Punkten und Buchsta¬ 
ben ist, dem alten Hilfswort H$ zugeordnet, welches ja dem 
Spieler beim nächsten Ratevorgang gezeigt wird (Zeile 
370). 

Danach wird der Ratevorgang in Zeile 390 und damit der 
ganze Ablauf wiederholt. 

Jedesmal, wenn ein Buchstabe richtig geraten ist, 
kommt er an die entsprechende Stelle der Hilfswörter N$ 
und H$. Erst wenn der Spieler das ganze Wort kennt und es 
komplett in Zeile 390 eingibt, springt, wie erwähnt, Zeile 



10 PRINT CHRSU47) <039> 
20 PRINT"***** BEGRIFFE RATEN ****** <211> 
30 PRINT <132> 
40 : <016> 

50 REM-SPIELANLEITUNG- <206> 

60 : <036> 
70 : <046> 
80 PRINT"DER COMPUTER DENKT SICH EINE <155> 
90 PRINT"SPORTART. <175> 
100 PRINT"SIE SOLLEN SIE ERRATEN. <138> 
110 PRINT <212> 
120 PRINT"SIE KOENNEN EINEN BUCHSTABEN <097> 
130 PRINT"EINGEBEN, DANN ERSCHEINEN <167> 
140 PRINT"DIE GERATENEN BUCHSTABEN AN <076> 
150 PRINT"DER RICHTIGEN STELLE. <165> 
160 PRINT <006> 
170 PRINT-HABEN SIE DAS WORT ERRATEN, <021> 
180 PRINT-GEBEN SIE ES KOMPLETT EIN. <169> 
190 : <166> 
200 : <176> 

210 REM-.WORT AUSWAEHLEN- <243> 

220 • <196> 
230 <206> 
240 FOR X=1 T0 INT(RND(0)*14)+1 <155> 
250 READ US <004> 
260 NEXT <016> 
270-: <248> 
280 HS-"" <083> 
290 FOR X=1 TO LEN(US) <242> 
300 H$=H$+- " <008> 
310 NEXT <066> 
320 : <042> 
330 : <052> 

340 REM-RATEVERSUCH- <160> 

350 : <072> 
360 PRINT:PRINT <058> 
370 PRINT"GESUCHT WIRD: "iHS <073> 
380 PRINT <228> 
390 INPUT"WAS RATEN SIE";LS <220> 
400 IF LS=US THEN 600 <117> 
4tw-IF LEN(LS)>1 THEN 360 <067> 
420 •• <142> 
430 : <152> 

440 REM-HILFSWORT- <065> 

450 = <172> 
460 : <182> 
470 NS-“" <041> 
480 FOR X=1 TO LEN(US) <176> 
490 B$=MID$(US,X.1> <196> 
500 CS-MID$(H$,X,1> <076> 
510 IF LS-BS THEN N$=N$+LS = GOTO 530 <010> 
520 N$=NS+CS <067> 
530 NEXT <032> 
540 HS=NS <095> 
550 GOTO 360 <082> 
560 : <028> 
570 : <038> 

580 REM- NOCH EINMAL ?- <043 > 

590 : <058> 
600 PRINT <194> 
610 PRINT'SIE HABEN RICHTIG GERATEN <116> 
620 PRINT <214> 
630 PRINT’NOCH EINMAL (J/N) ? <096> 
640 GET AS ; IF A$=““ THEN 640 <166> 
650 IF A$:"J“ THEN RUN <166> 
660 PRINT <254> 
670 PRINT'AUF WIEDERSEHEN <006> 
680 : <148> 
690 : <158> 

700 REM-.WOERTERSPEICHER. <211> 

710 : <178> 
720 : <188> 
730 DATA FUSSBALL.HOCKEY,GOLF,BOXEN <115> 
740 DATA TURNEN,SCHWIMMEN,HOCHSPRUNG <099> 
750 DATA SEGELN,FECHTEN.JUDO.BASKETBALL <137> 
760 DATA KEGELN.SCHIFAHREN.TENNIS <102> 
© 64'er 


Listing 3. Ein kleines Spiel 

400 nach Zeile 600, wo von 630 bis 670 in üblicher Manier 
die Frage nach Wiederholung des Spiels oder Ende gestellt 
wird. 

Alle anderen Zeilennummern dienen der Lesbarkeit und 
der Schönschrift des Programms. 
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Weil anschließend ein völlig neues Thema angeschnit¬ 
ten wird, wäre es vielleicht wieder Zeit für ein Pauschen. 


mehrere derartige Variable T() verwenden wollen - klar, 
sonst würden wir uns ja die Mühe mit der Klammer nicht 


Variable in leidem (Arrays) 


Ich lade Sie zu einem Experiment ein. Wir stellen uns vor, 
wir benötigten in einem Programm eine Tabelle mit Zahlen, 
zum Beispiel die Anzahl der Bewohner, die in zehn ein¬ 
stöckigen Häusern in einer langen Straße wohnen. Die 
Adresse der Häuser unterscheidet sich nur durch die Haus¬ 
nummer, denn der Straßenname bleibt ja gleich. Statt des 
langen Straßennamens nehmen wir nur einen Buchstaben, 
zum Beispiel T. Zur Kennzeichnung der zehn verschiede¬ 
nen Adressen hängen wir die Ziffern 0 bis 9 hinten an. Die 
Zahl 10 können wir nicht nehmen, weil nach Punkt 3 des 
obigen Fazits die zweistelligen Variablennamen TI und T10 
identisch sind. 

In unserem Beispiel wollen wir den einzelnen Häusern 
Bewohnerzahlen zuweisen, die jeweils um 2 größer sind als 
die Hausnummer. 

10 T0=2 
20 Tl=3 
30 T2=4 
40 T3=5 
etc. 

100 T9=ll 
110 PRINT T0;TI; 
etc. bis T9 

Das ist natürlich eine sehr umständliche Arbeit, und lang¬ 
weilig ist diese dauernde Wiederholung obendrein. 

Also, wie geht das einfacher und eleganter? Natürlich mit 
einer FOR-TO-NEXT-Schleife, aber aufgepaßt: bei ihrer 
Verwendung müssen wir die Hausnummer N in Klammern 
dem Straßennamen T anhängen. Anders akzeptiert das 
der C64 in Basic nicht. 

Als Programm sieht das so aus: 

10 FOR N=0 T0 9 
20 T(N)=N+2 
30 PRINT T(N) 

40 NEXT N 

Ihnen ist natürlich klar, daß Straßenname T plus Haus¬ 
nummer (N) eine Variable ist, der wir Werte (Bewohner) zu¬ 
weisen. Aber eins sollte Sie stutzig machen. Wie unter¬ 
scheiden sich diese speziellen Variablen voneinander? 
Sind T(3) und T(8) nicht identisch, wenn nach der oben 
schon zitierten Regel nur die ersten beiden Zeichen des 
Namens - hier T( - hergenommen werden ? 

Nun, die Klammer macht den Unterschied. Durch sie 
wird ein neuer Typ einer Variablen, eine sogenannte Feld- 
Variable definiert, und Feld-Variablen unterscheiden sich 
durch die Zahl innerhalb der Klammer. Diese Zahl heißt In¬ 
dex (Mehrzahl: Indizes). Warum sie ausgerechnet Feld- 
Variable heißt, erkläre ich gleich. 

Vorher, bei der Schreibweise T0, TI etc. waren wir auf 10 
Variable beschränkt, weil TI und T10 dieselbe Variable war. 
Jetzt - mit Indizes als Unterscheidungsmerkmal - gilt diese 
Beschränkung nicht. Deshalb wollen wir die Anzahl der In¬ 
dizes im Programm noch erhöhen. Bei einem N von 0 bis 
10 geht es ohne Probleme. Aber ab 11 ist schon wieder Fei¬ 
erabend. Wir erhalten die Fehlermeldung »BAD SUB¬ 
SCRIPT ERROR IN 20«. Um Ihnen das zu erklären, muß ich 
genauer beschreiben, was passiert, wenn wir eine Variable 
mit einem Index in Klammern verwenden. 

Wenn wir eine Variable so schreiben: 

T(1)=25 

dann nimmt der Computer an, daß wir in einer Tabelle noch 


machen. Um uns die Sache zu erleichtern, reserviert der 
Computer unter dem Variablennamen T in seinem Spei¬ 
cher von vornherein elf Plätze, für T(0) bis T(10). Diesen re¬ 
servierten Bereich können Sie salopp Tabelle nennen; offi¬ 
ziell heißt er Feld oder auf englisch Array. Die alte Regel für 
den Namen der Variablen gilt jetzt auch nicht mehr, denn 
zum Unterscheiden der einzelnen Feld-Variablen dessel¬ 
ben Anfangsbuchstabens bedient der Computer sich der 
Index-Zahl in der Klammer. 

Die Beschränkung auf eine Feld-(Array-)Größe von elf 
Plätzen wäre natürlich sehr lästig, wenn sie nicht umgan¬ 
gen werden könnte. Wenn wir nämlich mehr Platz brau¬ 
chen, können wir dem Computer mit dem Basic-Befehl 

DIM 

unsere Reservierungswünsche mitteilen. DIM ist eine Ab¬ 
kürzung, die aus dem Wort »Dimension« abgeleitet ist. Als 
Beispiel möge die folgende Programmzeile dienen: 

—*• 5 DIM T(25) 

Sie reserviert im obigen Programm für die Variable T() im 
Speicher ein Feld von 26 Plätzen, von T(0) bis T(25). 

Die Größe eines Feldes ist nur durch den vorhandenen 
Speicherplatz begrenzt. Wenn Sie die Zahl zu groß wählen, 
verweigert der Computer die Reservierung - natürlich erst 
nach dem Befehl RUN - mit OUT OF MEMORY, was soviel 
heißt wie »keinen Platz mehr im Speicher«. 


Basic-Befehl Nr. 26 DIM 

- dieser Befehl wird in der folgenden Schreibweise verwen¬ 
det: DIM Variablenname (Index) 

- er reserviert einen Speicherbereich für eine durch den In¬ 
dex loStgelegte Anzahl von Variablen desselben Na¬ 
mens, die sich nur durch ihren jeweiligen Index unter¬ 
scheiden. Dieser Speicherbereich wird Feld oder Array 
genannt 

- mit DIM können sowohl Felder für numerische als auch 
für String-Variable reserviert werden. Ein Feld kann im¬ 
mer nur einen einzigen Variablentyp enthalten 

- für den Namen und für die Kennzeichnung des Typs der 
Feld-Variablen (vor der Klammer) gelten dieselben Re¬ 
geln wie für alle anderen Variablen 


Ein Feld kann also auch aus String-Variablen bestehen: 

—► 200 DIM A$(25) 

210 A$(0)="FEUER" 

220 A$(l)="ZANGEN" 

230 A$(2)="BOWLE" 


300 FOR N=0 TO 2 
310 PRINT A$(N); 

320 NEXT N 

Dieses kleine Programm reserviert ein Feld von 25 
Strings und weist den ersten dreien davon je ein Wort zu. 
Mit RUN 200 gestartet, druckt es das Wort Feuerzangen¬ 
bowle aus, indem in der Zeile 310 nacheinander für die Wer¬ 
te von N=0 bis N=2 die gespeicherten Strings A$(0) bis 
A$(2) durch das Semikolon nach dem PRINT-Befehl anein¬ 
andergeklebt werden. Das Einträgen der einzelnen Werte 
in die Tabelle, das ich in den Zeilen 210 bis 230 vorgenom¬ 
men und danach nur noch angedeutet habe, geht viel ele¬ 
ganter mit den Befehlen READ-DATA, die in der Lektion 17 
bereits ausführlich beschrieben sind. 

Um das zu zeigen, schlage ich Ihnen eine kleine Anwen¬ 
dung - im Computerdeutsch heißt so ein Programm 
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»Utility« - vor, und zwar eine Nachschlagliste von Geburts¬ 
tagen Ihrer Freunde und Verwandten. Natürlich ist das kei¬ 
ne Utility, deretwegen ich mir einen Computer kaufen wür¬ 
de, aber für unsere Zwecke hier ist sie ganz passend. 

Ich lege das Beispiel vorerst einmal auf fünf Namen (N$) 
und dazugehörige Geburtstagsdaten (D$) aus. Wir brau¬ 
chen also zwei Felder mit je fünf Plätzen, dazu zwei DATA- 
Zeilen mit den Eintragungen. Verwenden Sie bitte meine 
wirr erscheinenden Zeilennummern; am Ende passen sie 
schon zusammen. 

Speicher löschen mit NEW 
—► 20 DIM N$(4) 

500 DATA MAX,MORITZ,MARIA,HANS,LUISE 
120 DIM D$(4) 

600 DATA 12.6.52,3.4.60,21.1.40,19.9.56,11.11. 

70 

Denken Sie bitte daran: DIM N$(4) legt fünf Plätze fest, 
nämlich 0 bis 4. 

Denken Sie ebenfalls daran, daß Eintragungen in DATA- 
Zeilen durch ein Komma voneinander getrennt sein müs¬ 
sen. 

So, jetzt brauchen wir für beide Felder eine Schleife, mit 
der die Eintragungen der DATA-Zeilen mit READ in das je¬ 
weilige Feld gelesen werden. Für das Namensfeld gilt: 

—► 30 FOR 1=0 TO 4 
40 READ N$(I) 

50 NEXT I 

Dasselbe machen wir für das zweite Feld der Geburtstage: 

—► 130 FOR 1=0 TO 4 
140 READ D$(I) 

150 NEXT I 

Jetzt brauchen wir noch einen Programmteil, der nach 
Eingabe eines Namens das dazugehörige Geburtsdatum 
heraussucht und ausdruckt. Für die »Dazugehörigkeit« be¬ 
nützen wir die Indizes der Feldvariablen. Das bedeutet 
nichts anderes, als daß zum zweiten Namen N$(2) das 
zweite Datum D$(2) gehört. 

Doch zuerst stellen wir per IN PUT die Frage F$ nach dem 
Namen, dessen Geburtstag wir wissen wollen: 

—► 200 INPUT "NAME";F$ 

Dann vergleichen wir in einer weiteren Schleife die ge¬ 
speicherten Namen N$(l) mit dem gefragten Namen F$. 
Wenn bei einem bestimmten Wert I der Vergleichsschleife 
die beiden Namen gleich sind, wird der Geburtstag mit 
demselben Index I ausgedruckt. Das Programm kann dann 
eine weitere Eingabe eines Namens verlangen (GOTO 
200 ). 

—► 210 FOR 1=0 TO 4 

220 IF N$(I)=F$ THEN PRINT D$(I):G0T0 200 
230 NEXT I 

Um den Vergleichs- und Entscheidungsvorgang genau 
zu verstehen, brauchen Sie lediglich die Schleifen durch¬ 
zuspielen, indem Sie die Werte von I gedanklich hochzäh¬ 
len und im Programm nachschauen, was passiert. Wir kön¬ 
nen aber zum Verständnis auch eine »Lehrzeile« (mit h !) 
einfügen, die uns den jeweiligen Stand des Vergleiches an¬ 
zeigt: 

—»- 215 PRINT I;F$,N$(I);D$(I) 

Nach RUN und nach Eingabe eines der fünf Namen se¬ 
hen wir am Bildschirm eine Reihe mit steigenden Werten 
von I, daneben (Semikolon !) den eingegebenen Namen, 
dann in einem größeren Abstand (Komma!) die Namen und 
Daten, und zwar so lange, bis F$ und N$ gleich sind. 

Nehmen Sie jetztZeile 215 wieder heraus, aberfügenSie 
bitte eine Zeile 240 dazu, die wir für ein bedienungsfreund¬ 
liches Programm brauchen. Wir müssen nämlich Vorkeh¬ 
rung treffen für den Fall, daß ein Name eingegeben wird, 
der nicht in der Liste steht. Auch Tippfehler fallen in diese 


Kategorie. Wenn kein positiver Vergleich zwischen F$ und 
N$ innerhalb der Schleife auftritt, macht das Programm 
nach der Schleife weiter, mit der neuen Zeile 240, die für 
sich selbst spricht: 

—► 215 

240 PRINT"NAME IST NICHT IN DER LISTE" 

Das ganze Programm sieht so aus: 

—► 20 DIM N$(4) 

30 FOR 1=0 T0 4 
40 READ N$(I) 

50 NEXT I 
120 DIM D$(4) 

130 FOR 1=0 TO 4 
140 READ D$(I) 

150 NEXT I 

200 INPUT "NAME";F$ 

210 FOR 1=0 TO 4 

220 IF N$(I)=F$ THEN PRINT D$(I):G0T0 200 
230 NEXT I 

240 PRINT"NAME IST NICHT IN DER LISTE" 

500 DATA MAX,MORITZ,MARIA,HANS,LUISE 
600 DATA 12.6.52,3.4.60,21.1.40,19.9.56,11.11 
.70 

Der DIM-Befehl und der READ-Befehl haben beide eine 
zusätzliche Eigenschaft, die uns eine wesentliche Verbes¬ 
serung dieses Programms erlaubt: 

Man darf hinter einem einzigen DIM-Befehl mehrere Fel¬ 
der dimensionieren. Sie müssen lediglich durch ein Kom¬ 
ma getrennt sein. Genauso darf man mit einem einzigen 
READ-Befehl mehrere Werte-Gruppen auslesen. Hier gilt 
dieselbe Kommaregel wie bei DIM. 

Damit können wir die Zeilen 20 bis 150 stark verkürzen: 
—.0 DIM N$(4),D$(4) 

30 FOR 1=0 TO 4 
40 READ N$(I),D$(I) 

50 NEXT I 

Die Zeile 20 ist einfach nur eine Zusammenziehung der 
beiden alten Zeilen 20 und 120. Die Funktion des DIM- 
Befehls bleibt dabei erhalten - er dimensioniert halt gleich 
beide Felder. 

Beim »doppelten« READ-Befehl in Zeile 40 hat sich in der 
Arbeitsweise, verglichen mit den alten Zeilen 40 und 140, 
etwas geändert. Schuld daran ist aber die FOR-NEXT- 
Schleife der Zeile 30. 

Bei jedem Wert von I holt nämlich der READ-Befehl zwei 
hintereinanderliegende Werte aus den DATA-Zeilen und 
weist sie den beiden Variablen N$ und D$ zu. Wir müssen 
diesem Vorgang dadurch Rechnung tragen, daß wir den In¬ 
halt der DATA-Zeilen umorganisieren. Es müssen jetzt im¬ 
mer je ein Name und das dazugehörige Geburtsdatum hin¬ 
tereinander kommen, was eigentlich viel leichter einzutip¬ 
pen ist. Sie sehen, gute Programmierung ist fast immer 
auch klarer und logischer. 

—*• 500 DATA MAX,31.3.55,MORITZ,12.4.45, 

HANS,6.2.60 

600 DATA MARIA,14.7.63,LUISE,8.9.60 

Mit dieser Anordnung haben wir noch einen weiteren 
Vorteil erhalten. Das Programm, oder besser gesagt die 
Geburtstagskartei, kann ganz leicht erweitert werden. Ei¬ 
nen neuen Namen samt Datum brauchen Sie nur durch 
Komma getrennt hinter die letzte Eintragung der DATA- 
Zeilen zu schreiben. 

Doch halt! Noch etwas fehlt: Die Zahl der Namen, die 
sich durch eine neue Eintragung natürlich erhöht, kommt ja 
im Programm auch vor, und zwar in unserem Fall als Ziffer 4 
in den Zeilen 20, 30 und 210. Um uns diese Zusatzarbeit 
ebenfalls zu erleichtern, geben wir dieser Zahl einen 
Variablen-Namen Z, definieren dieses Z ganz am Anfang 
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Merken wir uns: 

1. Hinter einem DIM-Befehl können mehrere Felderdimen- 
sioniert werden. Sie müssen lediglich durch ein Komma 
getrennt sein. 

2. Mit einem READ-Befehl können mehrere DATA-Werte 
gelesen werden. Auch diese müssen durch ein Komma 
voneinander getrennt werden. 

3. Es empfiehlt sich, einen Zahlenwert oder einen String, 
der mehrmals in einem Programm vorkommt, ganz am 
Anfang des Programms als numerische beziehungswei¬ 
se als Stringvariable zu definieren und im Programm 
dann nur einmal dieser Variablen den Wert zuzuweisen. 


und brauchen so bei jeder neuen Namenseintragung nur 
dieses Z um 1 erhöhen. 

Diese Zeilen sehen jetzt so aus: 

—*• 10 Z=4 

20 DIM N$(Z),D$(Z) 

30 FOR 1=0 TO Z 
210 FOR 1=0 T0 Z 

Wir haben jetzt ein komplettes kleines Programm, des¬ 
sen zusammengewürfelte Zeilennummern ihm allerdings 
ein unfertiges Aussehen verleihen. 

Deswegen und wegen der vielen Änderungen während 
seiner Entstehung ist es im folgenden Listing 4 noch einmal 
komplett dargestellt. 


10 Z=4 

<075> 

20 DIM N$(Z),D$(Z> 


30 FOR 1=0 TO Z 

<245> 

40 READ N$(I),D$(I) 

<035: 

50 NEXT I 

<134> 

200 INPUT ''NAME",-FS 

<194> 

210 FOR 1=0 TO Z 

<169> 

220 IF NS(I)=F$ THEN PRINT DS(I):GOTO 200 

<246> 

230 NEXT I 

<058> 

240 PRINT NAME IST NICHT IN DER LISTE 

500 DATA MAX,31.3.55,MORITZ,12.4.45,HANS,6 

<249> 

.2.60 

<186> 

600 DATA MARIA,14.7.63,LUISE,8.9.60 

© 64’er 

Listing 4. Eine einfache Geburtstagsverwaltung 

<196> 


Zweidimensionale Felder 
(Arrays) 


Hinter dieser Überschrift verbirgt sich eine Erweiterung des 
DIM-Befehls. 

- eindimensional ist eine Linie; sie hat nur in einer Rich¬ 
tung eine Ausdehnung 

- zweidimensional ist eine Fläche; sie hat eine Länge und 
eine Breite. 

Diese Betrachtungsweise kann auch auf Variablenfelder 
angewendet werden. 

Ich habe bei der ersten Erklärung des Begriffs »Feld« und 
»Feldvariable« den Vergleich mit einstöckigen Häusern in 
einer Straße verwendet. Unser damaliges Beispiel könnte 
man in dieser Form aufmalen: 


Bewohner 

2 

3 

4 

5 

6 

Adresse 

T(0) 

T(1) 

T(2) 

T(3) 

T(4) 


Ein zweidimensionales Feld ist eine Tabelle, in der so¬ 
wohl waagerecht wie senkrecht Eintragungen möglich 
sind: 


Stockwerk 3 

T(0,3) 

T(1,3) 

T(2,3) 

T(3,3) 

T(4,3) 

2 

T(0,2) 

T(1,2) 

T(2,2) 

T(3,2) 

T(4,2) 

1 

T(0,1) 

T(1,1) 

T(2,1) 

T(3,1) 

T(4,1) 

0 

T(0,0) 

T(1,0) 

T(2,0) 

T(3,0) 

T(4,0) 

Hausnummer 

0 

1 

2 

3 

4 


In unserem Beispiel sind das Häuser, die mehrere Stock¬ 
werke und pro Stockwerk verschiedene Bewohnerzahlen 
haben. Der Einfachheit halber gebe ich allen Häusern die¬ 
selbe Zahl von Stockwerken. 

Bei diesen Reihenhäusern habe ich nicht mehr die Zahl 
der Bewohner in die Häuser beziehungsweise Stockwerke 
geschrieben, sondern die »Adressen«, die wieder unsere 
Feldvariablen sind. Nur haben sie diesmal zwei Indizes, ei¬ 
nen für das Stockwerk (Zeile des Feldes) und einen für die 
Hausnummer (Spalte des Feldes). 

Wenn wir jetzt sagen wollen, daß im 3. Stock des 1. Hau¬ 
ses sieben Leute wohnen, legen wir das fest mit: 

—► T(l,3)=7 

.Bei der Definition einer zweidimensionalen Variablen 
T(A,B) reserviert auch diesmal wieder der Computer ein 
Feld von 11 Variablen, allerdings pro Index, das heißt insge¬ 
samt 11 *11=121 Plätze. 

Ein kleines Programm beweist diese Behauptung: 

—► 10 FOR 1=0 TO 10 
20 FOR K=0 10 

nur»«»' T(I,K)=I+K 

40 PRINT T(I,K)j 

50 NEXT K 
60 NEXT I 

Ich habe es extra so geschrieben, daß Sie die beiden 
Schleifen besser sehen können. Pro Durchlauf der äußeren 
I-Schleife läuft die innere K-Schleife llmal durch. Dement¬ 
sprechend sieht das Resultat der Zeile 40 aus. 

Wenn Sie jetzt die obere Grenze von I auf 11 erhöhen, 
merkt das Programm erst nach dem 121.Durchlauf, daß zu¬ 
wenig Platz reserviert worden ist. Lassen Sie dagegen das 
I auf maximal 10, erhöhen aber das K auf 11, bleibt das Pro¬ 
gramm schon nach dem ersten Durchlauf der inneren 
Schleife stehen. 

Das war eine kleine Erinnerung an die Wirkungsweise 
geschachtelter Schleifen. 

Wenn wir ein größeres Feld benötigen, müssen wir die¬ 
sen Bedarf wieder mit dem DIM-Befehl eingeben: 

DIM T(25,34) 

Um die Wirkungsweise eines zweidimensionalen Feldes 
vorzuführen, habe ich vor, mit Ihnen einen »Karteikasten« 
zu entwickeln, in dem Sie eine Literatursammlung, Ge¬ 
schichtsdaten, oder alle Titel Ihrer Plattensammlung kata- 


Merken wir uns: 

1. Felder können mehrere Dimensionen haben. Eine zwei¬ 
dimensionale Feld-Variable hat zwei Indizes in der 
Klammer, die durch ein Komma getrennt sein müssen. 

2. Für eine mehrdimensionale Feld-Variable werden pro 
Index elf Plätze im Speicher reserviert. 

3. Zur Dimensionierung größerer Felder steht der DIM- 
Befehl, ebenfalls mit zwei Indizes, zur Verfügung. 

4. Für mehrdimensionale DIM-Befehle und Feld-Variable 
gelten dieselben Regeln wie für eindimensionale Felder. 
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logisieren können. Eine Kartei ist natürlich nur dann sinn¬ 
voll, wenn bestimmte Eintragungen schnell durch Angabe 
eines Stichwortes gefunden werden können. 

Ich selbst habe mir für meine Arbeiten eine Computer- 
Literatursammlung zugelegt, deren Struktur ich hier ver¬ 
wenden will. Von jedem interessanten Artikel oder Buch¬ 
kapitel mache ich folgende Eintragung: 

- Zeitschrift (oder Buch) 

- Titel des Aufsatzes 

- Sachgebiet 

- Datum der Veröffentlichung 

- Seitennummer 

- Computer-Typ 

Diese Eintragungen nenne ich DATENSATZ, jeder Da¬ 
tensatz enthält sechs KATEGORIEN. 

Diese sollen nun in einem zweidimensionalen Feld unter¬ 
gebracht werden. 



KATE¬ 

GORIE 

K=1 

K=2 

K=3 

K=4 

K=5 

K=6 

DATEN¬ 

SATZ 

ZEIT¬ 

SCHRIFT 

TITEL 

SACH¬ 

GEBIET 

DATUM 

SEITE 

COMPU¬ 

TERTYP 

D=1 

(1.1) 

(1.2) 

(1.3) 

(1.4) 

(1,5) 

(1,6) 

D=2 

(2.1) 

(2,2) 

(2,3) 

(2,4) 

m 

(2,6) 

D=3 

(3.1) 

(3,3) 

usw. 





240 IF A$(S,K)=S$ THEN FOR Z=1 TO 6:PRINT A$ 

(S,Z):NEXT Z 
250 NEXT K 
260 

270 NEXT S 

280 PRINT "ENDE DER SUCHE" 

Um alle Datensätze, die im Feld A$ stehen, nach dem 
Stichwort S$ abzusuchen, bilden wir zwei verschachtelte 
Schleifen. Die eine zählt die Datensätze von 1 bis zum letz- 


Der erste Index »D« gibt also die Nummer des Datensat¬ 
zes an, der zweite Index »K« die jeweilige Kategorie. 

Um fürs erste einmal 100 Datensätze zu je sechs Katego¬ 
rien eintragen zu können, dimensionieren wir ein Feld A$: 

110 DIM A$(100,6) 


ten Datensatz, dessen Nummer vom Einlesevorgang her 
noch auf dem Wert D steht. Für diese Schleife wähle ich die 
Variable S. Die andere Schleife zählt wieder die Kategorien 
K von 1 bis 6 (Zeilen 220 und 230). 

In Zeile 240 wird pro Schritt geprüft, ob die Feldeintra- 


Die ersten fünf Datensätze könnten zum Beispiel so aus- gung :nit dem Stichwort S$ übereinstimmt. 


sehen: 

1002 DATA GAZETTE,SPEEDSCRIPT,UTILITY, 
1/84,12,64 

1003 DATA RUN,DER DIM-BEFEHL,BASIC,3/85,125,20 

1004 DATA 64er,FILES,KURS,4/87,118,64 

1005 DATA CHIP,SCHLEIFEN,BASIC,11/83,134,20/64 

1006 DATA HAPPY,GARBAGE COLLECTION,KURS, 
4/87,20/64 

Diese Datensätze in DÄTA-Zeilen lesen wir mit den fol¬ 


Stimmt sie überein, dann soll der ganze Datensatz, in 
dem das Stichwort gefunden worden ist, ausgedruckt wer¬ 
den. Deswegen legen wir hinter das THEN sofort eine 
Sechserschleife zum Ausdrucken aller sechs Kategorien. 

Danach wird die Suche mit den K- und S-Schleifen fort¬ 
gesetzt, denn das Stichwort kann ja auch in nachfolgenden 
Datensätzen Vorkommen. 

Wenn Sie dieses Programmfragment laufenlassen, wird 
es aussteigen mit der Fehlermeldung »NEXT WITHOUT 


genden Zeilen in das Feld A$: 

120 D=D+1 
130 FOR K=1 T0 6 
140 READ A$(D,K) 

150 

160 NEXT K 
170 GOTO 120 

Da wir nicht wissen können, wie viele Datensätze wirklich 
im Feld enthalten sind, muß die D-Schleife hochgezählt 
werden, während die K-Schleife fest von 1 bis 6 läuft, da ja 
die Anzahl der Kategorien mit 6 festliegt. 

Nun brauchen wir am Ende der Datensätze - ich lege es 
auf Zeile 2000 - eine Endmarkierung; sonst läuft der 
READ-Vorgang über. Ich wähle dafür den Klammeraffen 
»@«, dessen Auftreten wir in Zeile 150 abfragen: 

150 IF A$(D,K )=" GOTO 210 
2000 DATA @ 

Ab Zeile 210 soll der Suchvorgang nach einem bestimm¬ 
ten Datensatz beginnen. Der Suchvorgang beginnt mit der 
Eingabe des Stichwortes S$. Es kann ein Sachgebiet sein, 
eine Zeitschrift oder ein bestimmter Titel, den Sie suchen. 
Auf alle Fälle soll das Programm alle Datensätze, die das 
Stichwort enthalten, ausdrucken. 

210 INPUT"STICHWORT";S$ 

220 FOR S=1 T0 D 
230 FOR K=1 TO 6 


FOR«. 

Der Fehler, der hier auftritt, ist so häufig und doch so 
schwer zu sehen, daß ich ihn extra hier eingebaut habe, um 
Sie daraufzustoßen. 

Wir haben in den Zeilen 120 bis 150 eine Schleife mit der 
Variablen K für die sechs Kategorien. Dasselbe wiederho¬ 
len wir in den Zeilen 230 bis 250. Und genau das geht 
schief, weil wir nämlich aus der ersten K-Schleife in Zeile 
150 herausspringen, ohne daß die Schleife zu Ende gelau¬ 
fen ist. Im Speicher des Computers steht also noch eine 
Schleifenvariable K auf einem bestimmten Wert, wenn wir 
in Zeile 230 eine neue K-Schleife anfangen. Das kann der 
Computer nicht verarbeiten. 

Wir zählen übrigens die sechs Kategorien noch einmal in 
der Zeile 240, nur da macht es nichts, denn wir haben eine 
andere Schleifenvariable, nämlich Z verwendet. 

Das ist also schon eine der möglichen Lösungen, näm¬ 
lich eine Schleifenvariable immer nur einmal zu verwen¬ 
den. Die sauberste Lösung ist aber, nach dem Aussprung 
die Schleife »künstlich« zum Ende zu bringen und das wol¬ 
len wir in Zeile 150 auch machen. Verbessern Sie bitte: 

150 IF A$(D,K)="@"THEN K=6:NEXT K:G0T0 210 

Wir setzten also die Schleifenvariable K auf ihren End¬ 
wert 6 und geben ein letztes NEXT K. Damit wird die Schlei¬ 
fe »geschlossen«, und wir dürfen ungestraft K als Schleifen¬ 
variable wiederverwenden. 
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Jetzt bleibt nur noch die Frage an den Benutzer, ob der 
Programmlauf wiederholt oder abgebrochen werden soll 
(Zeilen 310 bis 340). Das komplette Programm steht in Li- 
sting 5. 

Diese »Kartei« kann durch Eintippen von zusätzlichen 
DATA-Zeilen beliebig vergrößert werden. Soll sie mehr als 
100 Datensätze enthalten, dann muß in Zeile 110 das Feld 
entsprechend vergrößert dimensioniert werden. Letztlich 
ist das Programm nur begrenzt durch den verfügbaren 
Speicher des C64. 

Das zweidimensionale Feld mit Variablen steht also im 
Speicher des C64 gespeichert. Wenn wir den Computer 
ausschalten, wird der Speicher gelöscht und alles ist weg. 
Es wäre deshalb schön, wenn wir das Feld mit den Daten 
auch auf ein Band oder auf eine Diskette abspeichern 
könnten, um es bei einer späteren Gelegenheit wieder in 
den Computer holen zu können. 


100 

REM**** DATEN INS FELD LESEN **** 

<071 > 

105 


<081 > 

110 

DIM AS(100,6) 

<230> 

120 

D=D+1 

<003> 

130 

FOR K=1 TO 6 

<119> 

140 

READ AS(D,K> 

<191 > 

150 

IF A$(D,K> = ''@"THEN K=6:NEXT K^GOTO 210 

< 171 > 

160 

NEXT K 

<004> 

170 

GOTO 120 

<130> 

195 


<171> 

200 

REM**** SUCHVORGANG ***** 

<020> 

205 


<181> 

210 

INPUT"STICHWORTSS 

<148> 

220 

FOR S=1 TO D 

<024> 

230 

FOR K=1 TO 6 

<219> 

240 

IF AStS,K)=S$ THEN FOR Z=1 TO 6:PRINT 



ASCS.Z):NEXT 2 

<162> 

250 

NEXT K 

< 094r> 

260 

PRINT 


270 

NEXT S 

<180> 

280 

PRINT"ENDE DER SUCHE" 

<165> 

295 


<017> 

300 

REM**** WIEDERHOLUNG ODER ENDE **** 

<101:- 

305 


<027> 

310 

PRINT'NOCH EINMAL <J/N>?" 

<064> 

320 

GET VS : IF VS:'"' THEN 320 

<182> 

330 

IF VS="J" THEN 210 

<054:- 

340 

END 

<088> 

999 


<213> 

1000 REM**** DATENSAETZE ***** 

<166> 

1001 = 

<215> 

1002 DATA GAZETTE,SPEEDSCRIPT,UTILITY,1/04 



,12,64 

<001 > 

1003 DATA RUN,DIM,BASIC,3/58,125,20 

<044> 

1004 DATA 64ER,FILES,KURS,4/87,118,64 

< 145> 

1005 DATA CHIP,SCHLEIFEN,BASIC,11/83,134,2 



0/64 

<066> 

1006 DATA HAPPY,GARBAGE COLLECTION,KURS,4/ 



87,38,20/64 

<082> 

10000 DATA @ 

<110> 

© 64 1 er 


Listing 5. Zweidimensionales Feld 



Aus dem Betriebshandbuch von Commodore kennen 
Sie sicher die Speicher- und Ladebefehle SAVE, LOAD für 
Kassetten und Disketten. Ich sage es aber besser gleich, 
bevor Sie unnütz experimentieren: Diese Befehle spei¬ 
chern und laden leider nur Programme, nicht aber Varia¬ 
blenwerte, die im Lauf eines Programms erst erzeugt wer¬ 
den. 

Es gibt aber noch eine andere Methode, wie man Varia¬ 
blenwerte, sei es für numerische, sei es für Feldvariable, 
speichern kann. Dazu aber muß ich Ihnen erst in Lektion 21 
ein bißchen mehr über den Speicher des C64 erklären. 
Speichern Sie bitte das Fragment Listing 5 auf Band oder 
Diskette ab, wir werden es später vervollständigen. 

Der nun folgende Abschnitt hat nur indirekt etwas mit Ba¬ 
sic zu tun. Aber wie ganz am Anfang betont, komme ich oh- 


Merken wir uns: 

1. Schleifen, die durch Aussprung verlassen werden, be¬ 
vor sie zu Ende gelaufen sind, werden im Speicher des 
Computers als »noch offen« registriert. Ihre Schleifenva¬ 
riable kann daher nicht wiederverwendet werden. 

2. Entweder muß man die Wiederverwendung von Schlei¬ 
fenvariablen vermeiden oder muß verlassene Schleifen 
schließen durch Zuweisung der Variablen auf den vorge¬ 
sehenen Endwert plus nachfolgendem NEXT-Befehl. 

3. Zweidimensionale Felder werden durch zwei ver¬ 
schachtelte Schleifen abgearbeitet. 

4. Felder beziehungsweise die Werte der Feldvariablen 
können nicht mit SAVE auf Kassette oder Diskette ge¬ 
speichert werden. 


ne einige Beschreibungen von Eigenschaften oder besser 
gesagt von Eigenheiten des C64 nicht aus. Einige Kennt¬ 
nisse des Innenlebens des Computers gehören halt doch 
auch zum Programmieren. 



1 Der Speicher - 

A I das Gedächtnis des Computers 


Alle Computer - Großrechenanlagen genauso wie kleine 
Heimcomputer - sind aus den folgenden Grundbausteinen 
aufgebaut: 

- zentrale Recheneinheit, auch Mikroprozessor oder CPU 
(Central Processing Unit) genannt 

- Speichereinheit 

- Ein- und Ausgabe-Bausteine 

Während die CPU rechnet, alle Vorgänge im Computer 
steuert, Befehle ausführt und somit das eigentliche Herz 
des Computers darstellt, braucht man die Ein- und 
Ausgabe-Bausteine, um Daten in den Computer hinein- be¬ 
ziehungsweise herauszuleiten. Alle Anschlüsse von Data- 
sette, Diskettenlaufwerk, Drucker und Bildschirm werden 
von ihnen gesteuert. 

Der Speicher ist der Notizblock des Computers. In ihm 
steht alles, was er sich merken soll: Programmzeilen, Varia¬ 
blenwerte, Zeichenketten (Strings) und so weiter. Auf eng¬ 
lisch heißt Speicher passenderweise Memory, was wir wie¬ 
derum auf deutsch mit Gedächtnis übersetzen könnten. 
Jeder Computer hat zwei Arten von Speicher: 

Das RAM (Random Access Memory) ist ein aus elektroni¬ 
schen Bauteilen aufgebauter Speicher, der für Programme 
frei verfügbar ist. Wir können in diesen Speichertyp Daten 
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hineinschreiben und sie wieder herauslesen, ohne sie zu 
zerstören. Nur nach dem Ausschalten des Computers - da 
sind sie weg! 

Das passiert auch dann, wenn nur kurzzeitig der Strom 
ausfällt, etwa bei einem Gewitter oder wenn der Netz¬ 
stecker einen Wackelkontakt hat. 

Es ist deshalb ratsam, bei längeren Programmierarbei¬ 
ten Zwischenergebnisse, das heißt den jeweiligen Inhalt 
des RAM auf Kassette oder Diskette abzuspeichern, denn 
nur dort sind sie dauerhaft sicher. 

Das ROM (Read Only Memory) ist nicht frei verfügbar. Es 
besteht zwar auch aus elektronischen Bauteilen, aber sein 
Inhalt ist fest »eingebrannt« - man kann ihn nicht ändern. 
Er wird vom Computer selbst verwendet. Wenn Sie zum 
Beispiel Ihren C64 einschalten, dann läuft eine im ROM 
eingespeicherte Folge von Programmschritten ab, die 
schließlich mit der Meldung des Computers auf dem Bild¬ 
schirm endet, mit der er sich bereit (READY) meldet. Im 
ROM stehen nicht nur die Programmschritte, die den Be¬ 
trieb des Computers steuern, sondern auch das Pro¬ 
gramm, welches alle Basic-Befehle in einen Code »über¬ 
setzt«, den der zentrale Mikroprozessor (CPU) versteht. 
Wenn Sie mehr über die allgemeine Arbeitsweise des Com¬ 
puters erfahren wollen, dann lesen Sie bitte im 64’er-Son- 
derheft 38 nach. 


sic-Programme. Ab hier werden alle eingegebenen oder 
von Band und Diskette geladenen Programme gespei¬ 
chert. Auch alle Variablen, Felder und Zeichenketten, die 
im Lauf eines Programmes auftauchen, werden dort ge¬ 
speichert. 

- Dieser Speicherbereich endet bei Adresse 40959. 

Dem Programmierer stehen 38911 Speicherplätze zur 

Verfügung. Alle diese Speicherzellen sind also RAM- 
Zellen, das heißt, man kann Daten hineinschreiben und 
herauslesen. 

- Von 40960 bis 49151 sind die fest vorgegebenen Pro¬ 
gramme zum Übersetzen von Basic In den Maschinenco¬ 
de enthalten 

- Anschließend an 53248 bis 57343 sind alle Buchstaben 
und Zeichen und die Ein- und Ausgabeprogramme ge¬ 
speichert. 

- Danach folgen die Programme des Betriebssystems, 
auch Kernel genannt. 

Bemerkenswert ist, daß die Betriebsprogramme des 
Computers (Basic-Übersetzer, Zeichensatz, Ein- und Aus¬ 
gabe und Kernel) in einem ROM-Speicher untergebracht 
sind, der über einem RAM-Speicher sitzt. Das heißt sie ha¬ 
ben dieselben Adressen. Wie dieser RAM-Teil des Spei¬ 
chers genutzt werden kann, gehört zur höheren Program¬ 
mierkunst und wird hier nicht behandelt. 


21.1. Die Adressen der Speicherzellen 

Der gesamte Speicher des C64 ist aus einzelnen Spei¬ 
cherzellen aufgebaut. Der C 64 bietet Platz für 65536 Spei¬ 
cherzellen. Jede dieser Speicherzellen hat eine Nummer, 
von 0 bis 65535 (Bild 1). 

Diese Nummern nennen wir Adressen. Um eine Zahl 
oder ein Zeichen in eine bestimmte Speicherzelle hinein¬ 
schreiben zu können, müssen wir ihre Adresse kennen. Na¬ 
türlich gilt dasselbe für das Auslesen. Es liegt deshalb sehr 
nahe, uns ein »Adreßbuch« des Speichers zu beschaffen. 

Im Bedienungshandbuch des C 64 ist eine derartige Li¬ 
ste im Anhang auf den Seiten 160 bis 165 unter dem Titel 
»Speicherbelegung« ange¬ 
geben (Beim C 128-Hand- 
buch finden Sie diese Liste 
für den C 64-Modus im An¬ 
hang H). Diese Liste ist aber 
alles andere als klar und 
verständlich. In dem folgen¬ 
den Absatz habe ich daher 
eine andere Darstellung ge¬ 
wählt, die Ihnen eine Über¬ 
sicht über die verschiede¬ 
nen Speicherbereiche und 
ihre Bedeutung geben soll. 

Aber ein Adreßbuch, oder 
wie es auf englisch heißt, ei¬ 
ne »Memory Map« ist das ei¬ 
gentlich auch nicht. Dazu 
müßte ich ja jede einzelne 
Adresse beschreiben. 

Hier ist also eine Kurzfas¬ 
sung eines Adreßbuches, in 
der wir aber bereits viel se¬ 
hen können: 

- Der Speicher beginnt 
ganz unten bei Adresse 0. 

- Die ersten 2047 RAM- 
Speicherzellen sind vom 
Computer selbst belegt. 

- Ab Adresse 2048 beginnt 
der RAM-Speicher für Ba- 


Uns stellt sich als nächstes die Frage, wie wir Daten in 
einzelne Speicherzellen des Programmspeichers hinein¬ 
schreiben und herauslesen können. 

21.2. Im Speicher stöbern 

Basic hat zwei Befehle, mit deren Hilfe der Speicher ab¬ 
gefragt werden kann. 

Wäi .rend der Lese-Befehl völlig ungefährlich ist - er »ko¬ 
piert« praktisch den Inhalt der Speicherzelle und läßt das 
Original unverändert - kann der Schreib-Befehl gefährlich 
sein. Ich will Sie gleich zu Beginn davor warnen, ihn unbe¬ 
dacht einzusetzen - er verändert den Inhalt einer Speicher¬ 
zelle, und über die Folgen dieser Veränderung für ein Pro- 
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Basic-Befehl Nr. 27 POKE 

- er wird in der folgenden Weise geschrieben: 

POKE Adresse,Wert 

Adresse und Wert müssen durch ein Komma voneinander 
getrennt sein 

- der POKE-Befehl speichert den »Wert« in der mit »Adres¬ 
se« bezeichneten Speicherzelle ab. Er überschreibt da¬ 
bei einen dort gespeicherten früheren Wert 

- gültige »Werte« liegen im Bereich von minimal 0 bis maxi¬ 
mal 255. Wird dieser Bereich überschritten, erscheint die 
Fehlermeldung ILLEGAL QUANTITY ERROR. 

- der erlaubte Bereich für »Adresse« reicht von 0 bis 65535. 
Ein Überschreiten wird mit der Fehlermeldung ILLEGAL 
QUANTITY ERROR bestraft. 


gramm oder für den Betrieb des Computers muß man sich 
im klaren sein. Das heißt freilich nicht, daß Ihrem C 64 da¬ 
durch ernstlich Gefahr drohen könnte. Im schlimmsten Fall 
schalten Sie den Computer einfach aus und wieder ein - 
danach ist alles wie vorher. 

Der Schreib-Befehl heißt 

POKE 

was das englische Wort für »hineinstochern« ist (nomen est 
omen). Nach dem Befehlswort muß die Adresse der Spei¬ 
cherzelle stehen, danach folgt, durch ein Komma getrennt, 
die Zahl, die hineingeschrieben werden soll. 

Der Befehl 

POKE 14000,55 

schreibt also die Zahl 55 in die Speicherzelle 14000. 

Der Lese-Befehl heißt 

PEEK 

das ist das englische Wort für »hineinschauen«. Hinter die¬ 
sem Befehlswort steht die Adresse - und zwar in Klam¬ 
mern! - deren Inhalt gelesen werden soll. 

Die Befehlsfolge: 

A=PEEK(14000):PRINT A 
oder noch kürzer 

PRINT PEEK(14000) 

liest den Inhalt der Speicherzelle 14000 und druckt ihn auf 
den Bildschirm. 

In der ersten Zeile wird der Inhalt der Variablen A zuge¬ 
ordnet und steht unter diesem Namen im Speicher für spä¬ 
tere Verwendung. Da der Inhalt aber trotz PEEKen in der 
Zelle 14000 stehenbleibt und von dort immer wieder her¬ 
ausgeholt werden kann, bietet sich die Kurzform der zwei¬ 
ten Zeile an, die direkt das PEEK-Ergebnis ausdruckt. 

Wir haben gerade vorhin mit dem POKE-Befehl die 
Zahl 55 in die Speicherzelle 14000 hineingeschrieben und 
sie danach mit PEEK wieder ausgelesen. 

Nun, das beweist natürlich noch gar nichts. Schauen wir 
also mal im Speicher rund um die Zelle 14000 nach, was da 
so drin steht. Mit den Programmzeilen: 

10 F0R 1=13900 T0 14200 
20 PRINT I,PEEK(I) 

30 NEXT I 


Basic-Befehl Nr. 28 PEEK 

- er wird in der folgenden Weise geschrieben: 

PEEK (Adresse) 

- die »Adresse« muß immer in Klammern stehen 

- der Befehl liest den Inhalt der durch die »Adresse« 
angegebenen Speicherzelle 

- der erlaubte Bereich von »Adresse« reicht von 0 bis 
65635. Wird er überschritten, meldet dies der Computer 
mit ILLEGAL QUANTITY ERROR 


schauen wir uns den Speicherbereich von 13900 bis 14200 
an. Es wird durch Zeile 20 der jeweilige Wert von I und da¬ 
neben die Zahl, die in der Adresse I gespeichert ist, mit nur 
einem PRINT-Befehl ausgedruckt. Das Komma zwischen 
den beiden bewirkt einen Abstand von einer Viertelzeilen¬ 
länge. 

Nach RUN sehen wir, daß in allen Speicherzellen entwe¬ 
der eine 0 oder 255 steht, mit Ausnahme der Zelle 14000, 
da steht brav unsere 55. 

Übrigens hoffe ich, Sie wissen, daß mit der CTRL-Taste 
links oben der Ablauf des Programms gebremst werden 
kann - zum besseren Überblick, wenn die Speicherzelle 
14000 vorbeisaust. In diesem Teil des Speichers steht also 
praktisch gar nichts. Das ist auch kein Wunder, denn wir 
tummeln uns ja im oberen Teil des RAM-Speichers, der uns 
für Basic-Programme zur Verfügung steht. Unser Mini-Pro¬ 
gramm von drei Zeilen, welches ab der Speicherzelle 2048 
gespeichert wird, reicht da natürlich bei weitem nicht hin. 
Wenn Sie Zeile 10 so abändern, daß der Ausdruck ab dem 
Speicheranfang 2048 beginnt: 

10 F0R 1=2048 T0 2200 

dann sehen wir in der Tat ein Durcheinander von Zahlen, 
die bis hin zur Adresse 2095 reichen. Das ist - in einem be¬ 
sonderen Code geschrieben - unser Programm. Danach 
kommen wieder die Leerserien mit 0 und 255. 

Schauen wir spaßeshalber noch in den obersten Teil des 
Speichers, wo laut Speicherbild die mysteriösen Register 
für Ein- und Ausgabe liegen. Ich wähle Speicherzelle 
53265 als Versuchskaninchen. 

PRINT PEEK (53265) 

Das ergibt eine 155. 

Jetzt machen wir ein Experiment-das, wie gesagt, uner¬ 
wünscht! Folgen haben kann. Wir ändern mutwillig den In¬ 
halt dieser Speicherzelle mit: 

POKE 53265,16 

Und siehe da, nach Drücken der RETURN-Taste ver¬ 
schiebt sich der obere Rand des Bildschirms und schneidet 
alle Zeichen in der ersten Zeile ab. Sie sind zwar noch da, 
aber nicht sichtbar. 

Der Originalzustand läßt sich mit dem oben ermittelten 
»Normalwert« wiederherstellen, indem Sie eintippen: 

POKE 53265,155 

Dieser Versuch ist gutgegangen. Aber wenn Sie statt der 
15 oder der 155 die Zahl 33 in die Zelle POKEn: 

POKE 53265,33 

dann geht es schief. Der Bildschirm wird leer und durch 
nichts läßt er sich wiederbeleben - der Computer ist »abge¬ 
stürzt«! 

Ein Mittel bleibt uns doch, nämlich die <STOP 
RESTORE > -Tastenkombination. 

Hier noch ein anderes interessantes Beispiel: 

POKE 649, 0 

Der Computer nimmt danach keine Eingabe mehr an, 
das heißt, der Tastaturpuffer (Normalwert 10) ist auf null ge¬ 
stellt, und die Tastatur blockiert. Dies könnte innerhalb ei¬ 
nes Programmablaufs sinnvoll sein. Im Direkt-Modus »ret¬ 
tet« uns wiederum nur die < RUN/STOP RESTORE >- 
Kombination. 

21.3. Wir POKEn noch ein Weilchen 

Es gibt keine Computerzeitschrift, die nicht unter der Ru¬ 
brik Tips und Tricks alle möglichen POKE-Adressen angibt, 
mit denen sich verblüffende Effekte erzielen lassen. Auch 
ich gebe Ihnen ein paar Hinweise. 

POKE 199,1:PRINT "ABCDE" 

druckt alle Zeichen dieser Programmzeile revers (inver¬ 
tiert). 

POKE 650,64 
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Merken wir uns: 

1. Ein REGISTER ist eine Speicherzelle im Mikroprozes¬ 
sor (CPU) oder in einem anderen elektronischen Bau¬ 
stein. Im C64 besteht ein Register aus 8 Bit, das ist 
1 Byte. 

2. In einem Register werden Daten gespeichert, welche 
den Ablauf von arithmetischen, logischen oder von 
Steueroperationen festlegen. 

3. Der Inhalt von Registern kann mit PEEK ausgelesen 
und, was viel wichtiger ist, mit POKE verändert werden. 


schaltet die Wiederholfunktion aller Tasten aus 

POKE 650,0 

nur die Leer-, INST/DEL- und alle Cursor-Tasten wiederho¬ 
len, solange sie gedrückt werden 

POKE 650,128 

alle Tasten haben Wiederholfunktion (Normalzustand) 

POKE 53281,4 

schaltet die Farbe des Bildschirm-Hintergrundes auf Violett 

POKE 53280,5 

schaltet die Farbe des Bildschirm-Rahmens auf Grün. 

Die beiden letzten POKE-Adressen 53281 und 53280 
wollen wir uns näher anschauen. 

Der Zahlenwert in der Speicherzelle 53281 bestimmt al¬ 
so die Hintergrundfarbe, während in Speicherzelle 53280 
die Rahmenfarbe festgelegt ist. Da nach einem POKE- 
Befehl Zahlen von 0 bis 255 zugelassen sind, ist es sicher 
ganz interessant, welche Zahl welche Farbe hervorruft. Ein 
kleines Programm gibt uns darüber Auskunft: 

—► 10 FOR 1=0 T0 255 
20 POKE 53281,1 
30 PRINT I 

40 GET A$:IF A$="" THEN 40 
50 NEXT I 

Zwischen den Zeilen 10 und 50 wird in einer Schleife die 
Variable I von 0 bis 255 hochgezählt. 

Der jeweilige Wert von I wird in Zeile 20 in die Speicher¬ 
zelle 53281 gePOKEt und ändert dadurch die Hintergrund¬ 
farbe. 


Um die Zugehörigkeit der Farben zu den Zahlen zu se¬ 
hen, wird in Zeile 30 der jeweilige Wert von I ausgedruckt. 

Zeile 40 dient dazu, die Schleife schrittweise weiterzu¬ 
schalten. Der GET-Befehl in dieser Zeile springt so lange 
auf seine eigene Zeilennummer zurück, bis irgendeine be¬ 
liebige Taste gedrückt wird. Erst dann kommt der NEXT- 
Befehl in Zeile 50 zum Zuge. 

Mit diesem kleinen Programm werden pro Tastendruck 
alle Farben durchgeleiert, wobei die jeweils unterste ausge¬ 
druckte Zahl dem Farbwert entspricht. 

Was wir vorher mit der Speicherzelle 53281 für die Hin¬ 
tergrundfarbe gemacht haben, können wir ebenso mit der 
Zelle 53280 für die Umrandung machen. Diese beiden 
Adressen gehören zu den »Registern« des VIC-Bausteins, 
der für Töne und Grafik zuständig ist. 


Jetzt kennen wir also die beiden Farbregister und wis¬ 
sen, wie wir die Farben des Bildschirms unseren Wün¬ 
schen anpassen können. 

M Der Bildschirmspeicher 
und Farbspeicher 


Ich möchte Sie gern noch ein bißchen länger mit dem Spei¬ 
cher beschäftigen. Schauen Sie sich bitte noch mal das 
Speicherbild aus Teil 21 an. Da sehen wir ab Adresse 1024 
das »Bildschirm-RAM«. 

Um zu demonstrieren, was das ist, zeige ich Ihnen ein 
kleines Experiment: 

- Löschen Sie den Bildschirm mit der CLEAR-Taste 

- Fahren Sie mit dem Cursor in die untere Hälfte des Bild¬ 
schirms. 

- Geben Sie direkt ein: 

POKE 1024,1 

Ganz links oben auf dem Bildschirm steht plötzlich ein A. 
Wen n Sie aus der 1 eine 2 machen und den Befehl wieder¬ 
holen, verwandelt sich das A in ein B. 

Und noch ein Versuch: ändern Sie 1024,2 in 1025,3 um 
und geben es ein. Jetzt steht neben dem B ein C. 

Die Zahl 1 erzeugt also ein A, 2 ein B und 3 ein C. Dann 
müßte eigentlich die 26 ein Z hervorrufen - was sie auch tut. 

Wir haben also einen neuen Code für die Zeichen auf 
dem Bildschirm gefunden. 

Ein ähnlicher Zusammenhang deutet sich an bei den 
Adressen: 1024 setzt den Buchstaben an den ersten Platz 
des Bildschirmes, 1025 an den zweiten. Der Bildschirm hat 
40 Stellen pro Zeile und das für 25 Zeilen. Das macht insge¬ 
samt 1000 Plätze auf dem Bildschirm. 

Daher müßte die Adresse 2023 einen Buchstaben ganz 
rechts unten plazieren. 

POKE 2023,26 

setzt ein Z genau dorthin, wie vorhergesagt. 

Ich will Sie nicht länger plagen und das alles zusammen¬ 
fassen: 


Merken wir uns: 

1. Der Elektronenstrahl, der mit großer Geschwindigkeit 
über den Bildschirm des Fernsehers oder des Monitors 
flitzt und dort Bilder oder Text hinmalt, hat kein Gedächt¬ 
nis. Deswegen muß der Computer alle Angaben, die der 
Elektronenstrahl braucht, in einem gesonderten Spei¬ 
cher festhalten, der deshalb »Bildschirmspeicher« 
heißt. 

2. Im Bildschirmspeicher sind alle Zeichen gespeichert, 
die zum jeweiligen Zeitpunkt auf dem Bildschirm er¬ 
scheinen. 

3. Für den Bildschirmspeicher sind im RAM die Speicher¬ 
zellen 1024 bis 2047 reseviert. Da auf dem Bildschirm 
des C64 genau 1000 Plätze vorhanden sind (40 Stellen 


Merken wir uns: 

1. Der POKE-Befehl ist nützlich und gefährlich zugleich. 

2. Wird eine bestimmte Zahl in eine Speicherzelle ge¬ 
POKEt, mit der der Computer seine eigenen Abläufe 
steuert (Bereiche 0 bis 2047,40960 bis 49152 und 53248 
bis 65535), kann dadurch der Ablauf beeinflußt werden. 
Es kann aber auch zum »Absturz« des Computers kom¬ 
men. 

3. Mit »Absturz« wird beim Computer der Zustand bezeich¬ 
net, in dem kein Programm mehr läuft und der Computer 
auf keine normalen Steuerlasten mehr reagiert. 

4. Ein abgestürzter Computer kann nur durch Aus- und 
Wiedereinschalten wieder in Gang gesetzt werden. 
Nach dem Aus- und Einschalten befindet sich der Com¬ 
puter im Anfangszustand, das heißt, ein Programm, das 
vorher im Arbeitsspeicher war, ist verloren. 

5. Es ist empfehlenswert, bevor ein POKE-Befehl ausge¬ 
führt wird, sei es im Direkt-Modus oder sei es innerhalb 
eines Programms, ein im Arbeitsspeicher befindliches 
Programm zuerst auf Band oder Diskette abzuspei¬ 
chern - für alle Fälle ! 
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mal 25 Zeilen), reicht der Bildschirmspeicher nur bis 
Adresse 2123. Die restlichen 24 Byte sind frei. 

4. Alle Zeichen und Buchstaben stehen im Bildschirmspei¬ 
cher mit einem speziellen Code, der im Bedienungs¬ 
handbuch auf den Seiten 133 und 134 aufgelistet und 
auf Seite 132 erklärt ist (C 128-Handbuch: Anhang A-4 
bis A-6). Der Bildschirmcode hat nichts mit dem ASCII- 
Code zu tun. 


Durch direktes POKEn von Bildschirm-Codewerten in 
den Bildschirmspeicher lassen sich Effekte erzielen, die 
mit dem PRINT-Befehl nur sehr umständlich möglich wä¬ 
ren. Ich will Ihnen das an einem Beispiel zeigen. 

Ziel des Experiments soll es sein, eine bewegte farbige 
Umrandung des Bildschirms zu erzeugen, die als Pro¬ 
grammteil in anderen Programmen verwendbar ist. Ich ver¬ 
wende dazu ein Beispiel aus dem Buch »VC 20 Spielebuch« 
von A.Dripke, das viele gute Ideen und Anleitungen enthält, 
die sich auch für die Arbeit mit dem C 64 nutzbringend ver¬ 
wenden lassen. Wie üblich gehe ich in Stufen vor. 

—*- 10 FOR 1=0 TO 999 
20 POKE 1024+1,42 
30 NEXT 

Diese drei Zeilen zählen vom Anfang des Bildschirmspei¬ 
chers (1024) 1000 Plätze hoch (von 0 bis 999) und POKEn 
in jeden Platz einen Stern. Der Bildschirmcode des Sternes 
ist 42 (siehe oben erwähnte Tabelle). 

Auffallend bei diesem eindrucksvollen Vorgang ist, daß 
der Cursor und die READY-Meldung nicht anschließend an 
den letzten Stern erscheint, sondern dort, wo der letzte 
Basic-Befehl - in unserem Fall das RUN - auf den Bild¬ 
schirm geschrieben worden ist. 

Im nächsten Schritt lassen wir den Stern nur auf der 
obersten und untersten Zeile laufen. Die Schleife zählt da¬ 
her jetzt nur bis 39 (Zeilenlänge): 

—»• 10 FOR 1=0 TO 39 
20 POKE 1024+1,42 
30 POKE 1024+960+1,42 
40 NEXT I 

Neu ist hier die Zeile 30. Sie erhöht die Adresse um 
24*40=960 Plätze und beginnt dadurch in der untersten 
Zeile. 

Dieses Programm malt also eine Rahmenlinie oben und 
unten. Jetzt fehlt noch links und rechts. 

—► 50 FOR K=0 TO 960 STEP 40 
60 POKE 1024+K,42 
70 POKE 1024+39+K,42 
80 NEXT K 
90 GOTO 10 

Um von oben nach unten zu zählen, beginnen wir mit 0, 
gehen aber in 40er-Schritten gleich an den Anfang der je¬ 
weils nächsten Zeile bis zum Anfang der letzten Zeile. Das 
gibt uns in Zeile 60 den linken Rand. 

Für die andere Seite benutzt die Zeile 70 die gleiche Zäh¬ 
lung, POKEt aber den Stern um 39 Plätze verschoben, also 
am rechten Rand. Ganz zum Schluß springen wir in Zeile 
90 auf den Anfang zurück, um das lästige READY zu ver¬ 
hindern. 

Jetzt wollen wir diese Umrandung bunt machen, und 
zwar nach jedem Umlauf in einer anderen Farbe. 

Auch hier bietet der Computer eine Lösung an. Zwischen 
den Adressen 55296 und 56319 liegt das »Farb-RAM«. 

Dieser Bereich im RAM ist der Zwilling zum Bildschirm¬ 
speicher, nur ist er für die Farben zuständig. 

. Wenn wir jetzt das wiederholen, was wir gleich nach der 
Überschrift »Bildschirmspeicher« gemacht haben und PO¬ 


KEn zusätzlich in die erste Zelle des Farbspeichers 2048 
die Zahl 100, dann ändern wir die Farbe des Zeichens, also: 

—► - Bildschirm löschen 

- Cursor in die untere Hälfte 

- POKE 1024,1 

- POKE 55296,7 

Das A erscheint in Gelb. 

Insgesamt haben wir 16 Farben zur Verfügung. Sie ent¬ 
sprechen den folgenden Werten: 


0 = schwarz 

8 = orange 

1 = weiß 

9 = braun 

2 = rot 

10 = hellrot 

3 = lila 

11 = dunkelgrau 

4 = purpur 

12 = mittelgrau 

5 = grün 

13 = hellgrün 

6 = blau 

14 = hellblau 

7 = gelb 

15 = hellgrau 


Merken wir uns: 

1. Im Farbspeicher sind alle Farben gespeichert, in wel¬ 
chem die Zeichen auf dem Bildschirm erscheinen. 

2. Für den Farbspeicher sind im RAM die Speicherzellen 
55296 bis 56319 reserviert. 

Da auf dem Bildschirm des C64 genau 1000 Plätze 
vorhanden sind (40 Stellen mal 25 Zeilen), reicht der 
Farbspeicher nur bis Adresse 55295. Die restlichen 24 
Byte sind frei. 

3. Als Codewerte für die Farben gelten die Zahlen von 
0 bis 15. 


Wir wollten aber eigentlich das Umrahmungs-Programm 
mit F? ri en versehen. Dies erfolgt mit POKE in den Farb¬ 
speicher. 

Ich habe folgendes gemacht (Listing 6): 

Die Zeilen 5 und 90 bilden die übergeordnete Schleife, in¬ 
nerhalb der wir die Farbe F in den Farbspeicher POKEn. 

Um sicherzustellen, daß die Farbe F in diejenigen Spei¬ 
cherzellen des Farbspeichers kommt, die denen des Bild¬ 
schirmspeichers entsprechen, habe ich an jeden Bild- 
schirm-POKE-Befehl ein POKE 55296 angehängt mit den¬ 
selben Argumenten. Nur hinter dem Komma steht ein F für 
die Farbe und nicht die 42 für den Stern. 

Sie sehen, die Arbeit des Ausrechnens der Adresse 
braucht man nur einmal zu machen. 

Jetzt habe ich noch eine Variante vor: 

Die Umrandung soll nicht oben und unten beziehungs¬ 
weise links und rechts gleichzeitig laufen, sondern immer 
im Kreis. 

Bisher hatten wir diese Situation: 

Zeile 20: oben, von links nach rechts 
Zeile 30: unten, von links nach rechts 
Zeile 60: links, von oben nach unten 
Zeile 70: rechts, von oben nach unten. 


5 FOR F=0 T0 15 
10 FOR 1=0 TO 39 

20 POKE 1024+1,42:POKE 55296+1,F 
30 POKE 1024+960+1,42:POKE 55296+960+1,F 
40 NEXT I 

50 FOR K=0 TO 960 STEP 40 
60 POKE 1024+K,42:P0KE 55296+K,F 
70 POKE 1024+39+K,42:POKE 55296+39+K,F 
80 NEXT K 
90 NEXT F 

Listing 6. Farbige Umrandung 
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Wir müssen das so abändern: 

Zeile 20: oben, bleibt 
Zeile 70: rechts, bleibt 
Zeile 30: unten, von rechts nach links 
Zeile 60: links, von unten nach oben 
Die Reihenfolge ändert sich also, und die Zeilen 30 und 
60 laufen in der entgegengesetzten Richtung. Um das zu 
erreichen, müssen wir leider für jede POKE-Zeile eine eige¬ 
ne Schleife bauen. In den Zeilen 30 und 60 wird rückwärts 
gezählt, mit negativem STEP. 

In der neuen Reihenfolge sieht das so aus (Vorsicht, 
neue Zeilennummern!): 


5 F0R F=0 T0 15 
10 F0R 1=0 TO 39 

20 POKE 1024+1,42:P0KE 55296+1,F 
30 NEXT I 

40 F0R K=0 TO 960 STEP 40 

50 POKE 1024+39+K,42:POKE 55296+39+K,F 

60 NEXT K 

70 FOR 1=39 TO 0 STEP -1 

80 POKE 1024+960+1,42:POKE 55296+960+1,F 

90 NEXT I • 

100 FOR K=960 TO 0 STEP -40 

110 POKE 1024+K,42:POKE 55296+K,F 

120 NEXT K 

135 NEXT F 

140 GOTO 5 

Listing 7. Umlaufende Umrandung 


Spätestens jetzt könnten Sie sich wieder einmal eine 
Pause gönnen, denn in den nächsten Lektionen wollen wir 
uns einige neue Bereiche des C 64 erarbeiten. 



Der C 64 hat eine innere Uhr eingebaut, deren Stand abge¬ 
fragt, ausgedruckt und somit zu Messungen und zur Pro¬ 
grammsteuerung eingesetzt werden kann. Diese Uhr star¬ 
tet beim Einschalten mit dem Stand 0 und läuft, bis sie 
durch einen entsprechenden Befehl auf Null oder auf ir¬ 
gendeinen anderen Wert gesetzt wird. Der aktuelle Stand 
dieser Uhr kann mit der dafür fest reservierten Variablen 

TI 

abgefragt werden. Mit der ewigen Schleife: 

10 PRINT TI:GOTO 10 

drucken wir ein laufendes Band von sich schnell ändern¬ 
den Zahlen auf den Bildschirm. 


Diese Zahl durch 60 geteilt gibt uns die Zeit seit dem Los¬ 
laufen (Einschalten) in Sekunden an, durch 3600 geteilt in 
Minuten und durch 216000 geteilt in Stunden. 

Weil diese Darstellung etwas mühsam ist, wenn man ei¬ 
ne echte Zeitangabe braucht, besitzt Basic noch eine ande¬ 
re reservierte Variable 

Tl$ 

welche die Zeit in einer sechsstelligen Zahl ausdruckt. Da¬ 
bei bedeutet 124533 12 Stunden, 45 Minuten und 33 Se¬ 
kunden. Dies testen wir mit. 

10 PRINT TI$:G0T0 10 

Dieses Zahlenband verändert sich jetzt im Rhythmus 
von Sekunden. 

Tl$ ist auch die Variable, mit dem die Uhr auf einen belie¬ 
bigen Wert - auch auf Null - gesetzt wird: 

TI$="000000" 
setzt die Uhr auf Null. 

TI$="221500" 

setzt die Uhr auf 22 Uhr 15. 

In dem Augenblick, wenn Sie nach diesen Befehlen die 
RETURN-Taste drücken, läuft die Uhr mit diesem neuen 
Anfangswert los. 


Basic-Variable TI, Tl$ 

- Beim Einschalten des Computers läuft ein interner Zähler 
los, der 60mal in jeder Sekunde um 1 erhöht wird. Wenn 
der Zähler den Stand 5184000 erreicht hat - das ent¬ 
spricht einer Laufzeit von 24 Stunden, wird er auf 0 zu¬ 
rückgesetzt. 

- Mit TI kann der Stand des Zählers abgefragt werden. 

- Die Variable TIS wandelt den Zahlenwert des Zählers in 
eir\e sechsstellige Zahl um, deren erste beide Stellen die 
Sturiuen der Uhrzeit, die mittleren beiden die Minuten 
und die letzten beiden die Sekunden angeben. 

- Mit der Anweisung Tl$= "aabbcc" wird die interne Uhr 
auf aa Uhr bb Minuten cc Sekunden gestellt. 


Mit einer Simulation einer Stoppuhr wollen wir die bei 
den Variablen TI und Tl$ in einem Programm anwenden. 
Mit der Stoppuhr wollen wir den Vergleich der Laufzeiten 
der Zählschleife mit IF-THEN und der FOR-TO-NEXT- 
Schleife aus Lektion 8 wiederholen. 

23.1. Stoppuhr 

Unsere Stoppuhr läuft in dem Moment los, wo sie auf Null 
gesetzt wird: 

10 TI="000000" 

Sie stoppt mit der letzten Zeile der Messung: 

90 PRINT TI:END 

Um die Meßzeit in Sekunden zu erhalten, wenden wir 
noch obige Regel an, teilen durch 60 und drucken aus, was 
wir sehen werden. Zeile 90 wird verbessert zu: 

90 PRINT TI/60 "SEKUNDEN" 

Zwischen 10 und 90 plazieren wir unser Testprogramm. 
Ich schlage vor, genau wie in Lektion 8 den Bildschirm mit 
375 A zu füllen. 

Die ungleichen Lücken zwischen den Zeilen, sowohl in 
der Numerierung als auch in der Schreibweise, dienen nur 
der Lesbarkeit, haben aber auf den Ablauf keinen Einfluß. 

Die 80er Zeilen rücken den Ausdruck des Ergebnisses 
nach unten. 

Ergebnis: 

ZÄHLER+GOTO-Schleife: 3,9333 s 
FOR-NEXT-Schleife: 0,9666 s 

Die FOR-NEXT-Schleife ist strahlender Sieger!! 

Diese Technik wollen wir verwenden, um eine Zeitbe¬ 
grenzung so in ein Programm einzubauen, daß es nach ei- 
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Testprogramm »Stoppuhr« 

ZÄHLER+GOTO 

FOR-TO-NEXT 

10 TI$="000000" 

110 TI$="000000" 

20 PRINT CHR$(l47) 

120 PRINT CHR$(l47) 

130 FOR X=0 T0 374 

40 PRINT "A"; 

50 IF X=374 THEN 80 

60 X=X+1 

140 PRINT "A"; 

70 GOTO 40 

170 NEXT 

80 PRINT 

180 PRINT 

90 PRINT TI/60"SEK" 

190 PRINT TI/60"SEK" 

99 END 

199 END 


Programm« einen vorgegebenen Zeitwert Z mit dem Stand 
der eingebauten Uhr Tl$ vergleicht. 

—► 270 (Wörter eingeben) 

340 IF VAL(TI$) ()Z THEN 270 
Innerhalb der Zeilen 270 und 340 soll folgendes passieren: 

- Wörter W$ eingeben 

- Anfangsbuchstaben B$ überprüfen 

- Wörter ausdrucken 

- richtige Wörter zählen (R) 

Zum Eingeben von Wörtern steht uns INPUT und GET 
zur Verfügung. 

INPUT erlaubt die Eingabe von kompletten Wörtern, in¬ 
dem es auf einzelne Zeichen wartet - macht aber damit die 


ner gewissen 
beendet wird. 


Laufzeit abgebrochen, beziehungsweise 


23.2. Zeitabhängige Programmunterbrechung 

Wenn das Programm im Prinzip aus einer oder mehreren 
Schleifen besteht, ist die Lösung einfach. Ist es ein gerade 
verlaufendes Programm, das an irgendeiner Stelle unter¬ 
brochen werden soll, wird die Sache schon schwieriger, 
weil die Abfrage der Zeit eigentlich dauernd erfolgen muß. 

Wir nehmen uns hier den leichteren Fall vor. Sie kennen 
doch sicher das alte Spiel »Stadt, Land, Fluß«, bei dem in¬ 
nerhalb einer festgesetzten Zeit aus jedem Sachgebiet ein 
Beispiel mit denselben Anfangsbuchstaben aufzuschrei¬ 
ben ist. Eine Abwandlung dieses Spiels wähle ich als An¬ 
wendung einer Zeitsteuerung, die ich - wie immer - schritt¬ 
weise mit Ihnen entwickeln möchte. 

1. Initialisierung 

Mit diesem Fremdwort bezeichnen wir das Herstellen 
des Anfangszustandes eines Programms. In unserem Fall 
soll festgelegt werden: 

- ein Sachgebiet (S$) 

- die Zeitdauer (Z) 

- der Anfangsbuchstabe (B$) 

Sachgebiet und Zeitdauer werden vom Spieler per IN¬ 
PUT eingegeben, der Buchstabe (von A bis Z) wird mit ei¬ 
nem Zufallsgenerator erzeugt. 

100 PRINT CHR$(147) 

110 INPUT "WAEHLE EIN SACHGEBIETES? 

120 INPUT "STELLE DIE UHR AUF";Z 
130 B$=CHR$(INT(RND(0)*26+65)) 

Ich glaube, zu den Zeilen 100 bis 120 ist nichts weiter zu 
sagen. 

Zeile 130 soll eine Zufallszahl erzeugen, deren ASCII- 
Code laut Tabelle auf Seite 135 des Bedienungshandbu¬ 
ches zwischen 65 (A) und 90 (Z) liegt. Das Kochrezept dazu 
habe ich in Lektion 10 erklärt. Seine Formel lautet wie folgt: 

Ganze Zahlen innerhalb des Zahlenbereichs von mini¬ 
mal Y bis maximal (Y+X-1) werden erzeugt durch: 

INT(RND(0)'X+Y) 


Wirkung der Zeitmeß-Schleife zunichte. 

GET wartet nicht und ermöglicht der Zeitschleife, in den 
Ablauf einzugreifen - nimmt aber nur einzelne Zeichen ent¬ 
gegen. Die Wirkung der Zeitschleife ist mir wichtiger, zumal 
man aus einzelnen Zeichen auch Wörter zusammensetzen 
kann! Wir nehmen also GET (Zeile 270). 


100 

110 

120 

130 

140 

200 

210 

220 

230 

240 

250 

260 

270 


290 

300 

310 

320 

330 

340 

400 

410 

420 

430 

440 

450 


PRINT CHR$(147> 

INPUT"WAEHLE EIN SACHGEBIET";SS 
INPUT''STELLE DIE UHR AUF";Z ' 

B$=CHR$(INT< RND(0)*26*65)) 

PRINT"NENNE "Sä", DIE MIT " B$ ' ANFAN 
GEN 

REM**«* SEITSCHLEIFE & EINGABE **** 

PRINT "START MIT IRGENDEINER TASTE" 

GET X$:IF X$ = '"'THEN 240 
TI$="000000" 

GET ES 
;:WS+e$ 

IF ESOCHRS < 13 > THEN 340 
IF LEFTS(WS,1><>B$ THEN 330 
PRINT WS; 

R=R+1 
WS - ”" 

IF VAL(TIS)<>Z THEN 270 

REM**** STOP & ERGEBNIS ****** 

FOR F=0 TO 14 
POKE 53280,F:NEXT F 
PRINT R 


129 • 
>.23 5.’ 
• 082; 
< 006 > 

< 010 > 
<176> 
<029> 
< 1 96> 
<158> 
<214> 
<229> 
<238> 
< 002 > 
<152> 
<039> 
< 200 > 
< 001 > 
<230> 
<193> 
<239> 
< 122 > 
<091 > 
<142> 
<014> 
< 120 > 
<188> 


9 64'er 

Listing 8. Die eingebaute Uhr 


Das Zusammensetzen eines Wortes besorgt uns Zeile 
280, indem die einzelnen Buchstaben E$ zu einem Wort W$ 
einfach dazuaddiert werden: 

—► 270 GET E$ 

280 W$=W$+E$ 

Mit den Zeilen 270,280 und 340 haben wir eine Schleife, 


Zeile 130 wendet diese Formel an. Y liegt mit 65 fest, X 
errechnet sich aus (Y+X-1)=95 und ergibt 26. Bei Zeile 130 
bitte auf die Anzahl der Klammern aufpassen! 

Zeile 140 faßt die Initialbedingungen zusammen. Sie ist 
ein Beispiel für das Einfügen von Wörtern in einen vorgege¬ 
benen Text. Wichtig sind dabei die Leerzeichen im Text vor 
und nach den Stringvariablen S$ und B$. Versuchen Sie es 
ohne Leerzeichen, und Sie werden das unlesbare Resultat 
sehen. 

Zeilen 230, 240 und 250 geben den Startschuß. 

—*• 140 PRINT "NENNE "S$", DIE MIT "B$" ANFANGEN" 
230 PRINT"START MIT IRGENDEINER TASTE": 

240 GET X$:IF X$=""THEN 240 
250 TI$="000000" 

Jetzt läuft eine Zeitschleife los, die wie im letzten »Weck- 


die solange Wörter zusammensetzen würde, bis der Zeit¬ 
vergleich alles abbricht. Versuchen Sie es mit RUN 270! 

Ein Wort wird dadurch abgeschlossen - wie bei INPUT - 
daß die RETURN-Taste gedrückt wird. Dann allerdings soll 
das Wort ausgedruckt und als Resultat (R) gezählt werden 
- wenn es richtig ist. Die primitivste Prüfung ist die des An¬ 
fangsbuchstabens. 

—*• 290 IF E$ <> CHR$(13) THEN 340 

Zeile 290 prüft auf Drücken der RETURN-Taste, die den 
ASCII-Code 13 hat. Das heißt, sie prüft, ob die Taste nicht 
gedrückt ist. Dann rückt das Programm auf Zeile 340 wei¬ 
ter, mißt die Zeit, springt auf Zeile 270 zurück und schaut 
nach, ob ein neuer Buchstabe E$ eingegeben worden ist. 

Ist < RETURN > aber gedrückt, geht das Programm mit 
der Zeile 300 weiter. Diese schneidet sich mit dem 
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LEFT$-Befehl den ersten Buchstaben des Wortes W$ ab 
und vergleicht ihn mit dem vorgegebenen Anfangsbuchsta¬ 
ben B$. 

—► 300 IF LEFT$(W$,1) <> B$ THEN 330 
310 PRINT W$ 

320 R=R+1 
330 W$="" 

Ist die Prüfung auf »ungleich« nicht erfüllt, das heißt sind 
beide Buchstaben gleich, dann druckt Zeile 310 das Wort 
W$ aus und zählt es als richtiges Resultat R zu eventuell 
schon vorhandenen richtigen Resultaten dazu. Danach 
wird das eingegebene Wort W$ in Zeile 330 wieder ge¬ 
löscht. 

Ergibt der Vergleich der beiden Buchstaben in Zeile 300 
aber, daß sie ungleich sind, dann überspringt Zeile 300 die¬ 
sen ganzen Teil, löscht in Zeile 330 das bisher eingegebene 
(aber falsche) Wort und macht in Zeile 340 mit der Schleife 
weiter. 

Nach Ablauf der Schleife, oder besser gesagt, nach Ab¬ 
bruch durch die Uhr, läßt Zeile 430/440 den Bildschirmrah¬ 
men bunt aufflimmern und Zeile 450 druckt das Resultat R, 
nämlich die Anzahl der eingegebenen Wörter aus: 

430 F0R F=0 T0 14 
440 P0KE 53280,F:NEXT F 
450 PRINT R 

In Listing 8 ist das bisherige Programm vollständig dar¬ 
gestellt. Ich habe es dabei mit REM-Zeilen in funktionelle 
Blöcke unterteilt. 


Wenn Sie das Programm LISTen, dann sitzt in der Tat der 
eigentliche Spielteil jetzt am Ende des Programms, und 
Zeilen 200 bis 340 sind verschwunden. 

Dasselbe machen wir mit dem anderen Programm- 
Teilchen »STOP & ERGEBNIS«, das wir ebenfalls öfters ver¬ 
wenden wollen. Wir schieben es mit der oben genannten 
Methode auf 1400 bis 1450 und löschen Zeilen 400 bis 450. 

Jetzt haben wir Platz, um die Frage nach der Anzahl der 
Mitspieler einzubauen. Ich schiebe die Frage noch vor die 
Spielanweisung in Zeile 140, die ihrerseits in Zeile 220 
rutscht. 

—► 140 INPUT "WIE VIELE MITSPIELER";MS 
150 SP=1 

MS ist also die festgelegte Mitspielerzahl, die während ei¬ 
nes Spiels konstant bleibt. Da wir aber mit Spieler 1 anfan¬ 
gen und mit Spieler M$ aufhören, brauchen wir noch eine 
Spieler-Zählvariable, die pro Durchlauf hochgezählt wird. 
Ich nenne sie »SP« und setze sie in Zeile 150 auf 1. 

Als nächstes folgt die große Schleife für die Spieldurch¬ 
gänge pro Mitspieler. Ihre Zahl ist natürlich von MS abhän¬ 
gig: 

—► 70 SP=SP+1 

280 IF SPO MS+1 THEN 210 

Die Schleife zwischen den Zeilen 210 und 280 läuft so 
lange, bis SP, welches am Anfang 1 ist und nach jedem 
Durchgang in Zeile 270 um 1 weitergezählt wird, die volle 
Mitspielerzahl MS erreicht hat (Prüfung in Zeile 210 auf 
MS+1). 

In die Schleife lege ich jetzt die Anweisung der alten Zeile 
140 mit der Spielanleitung und welcher Mitspieler an der 
Reihe ist: 


24 


Die Technik 
der Unterprogramme 


—► 210 PRINT"MITSPIELER "SP" IST AN DER REIHE 
G46R OnUTl®«r »20 PRINT "NENNE * S$ ", DIE MIT " B$ 
_ "ANFANGEN" 


Das Spiel »Stadt, Land, Fluß« wird immer mit mehreren Per¬ 
sonen gespielt. Obwohl mir klar ist, daß ein derartiges Vor¬ 
haben mit dem Computer nicht ganz einfach zu organisie¬ 
ren ist - kein Spieler soll die Wörter des vorhergehenden 
Spielers sehen können - lasse ich dieses Detail außer acht 
und zeige Ihnen, wie man so einen mehrfachen Ablauf des¬ 
selben Programms programmiert. 

Wir brauchen dazu folgende Schritte: 

- Initialisierung, wie vorher 

- Frage nach der Zahl der Mitspieler 

- Schleife für entsprechend viele Durchgänge 

- Einzeldurchgänge pro Spieler 

- Speicherung der Einzelergebnisse 

- Ausdruck des Gesamtergebnisses 

Die Initialisierung mit den Zeilen 100 bis 130 bleibt also 
gleich. 

Jetzt stehen wir vor dem Problem, den eigentlichen 
Spielteil von Zeile 300 bis Zeile 340 so oft laufen zu lassen, 
wie Mitspieler vorhanden sind. Völlig unsinnig wäre es, die¬ 
sen Programmteil zu vervielfachen, da ja die Anzahl der 
Mitspieler variabel sein soll. 

Also müssen wir den Spielteil, der durch die Zeilen 200 
bis 340 gebildet wird, bei jedem Spieldurchgang neu »an- 
springen«. Dazu legen wir ihn zuerst einmal an das Ende 
des Programms. Das geht am schnellsten dadurch, daß Sie 
vor jede Zeilennummer eine 1 einfügen, wodurch wir einen 
Programmblock von 1200 bis 1340 erhalten, die Abstands¬ 
und REM-Zeilen mit eingeschlossen. 

Vorsicht! Wir haben innerhalb dieser Zeilen zwei Sprung¬ 
adressen, die wir ebenfalls ändern müssen: in Zeile 290 
und in Zeile 300. 

Die »alten« Zeilen 200 bis 340 müssen wir durch Eintip¬ 
pen ohne Inhalt der Reihe nach löschen. 


Nach Zeile 220 muß jetzt der Sprung auf den Spielteil er¬ 
folgen, den wir ans Ende des Programms zwischen den 
Zeilen 1230 und 1340 geschoben haben. 

Bislang sind wir auf solche Stellen mit GOTO 1230 hin- 
und mit GOTO xxx wieder zurückgesprungen. Basic kennt 
aber einen Befehl, der das viel eleganter macht, den soge¬ 
nannten »Unterprogrammsprung«. Er heißt 
GOSUB-RETURN 

wobei »Sub« vom englischen »Subroutine« kommt. 

Der Befehl GOSUB steht anstelle des GOTO, RETURN 
kommt ohne weitere Angaben an den Schluß des anzu¬ 
springenden Programmteils, also dorthin, wo wir das zwei¬ 
te GOTO hingesetzt hätten. In unserem Fall sieht das so 
aus: 

—► 230 GOSUB 1230 
1350 RETURN 

Wichtig ist noch zu erwähnen, daß der Programmteil zwi¬ 
schen den Zeilen 1230 und 1350 Unterprogramm heißt. 

Wichtig ist außerdem, daß der RETURN-Befehl dann au¬ 
tomatisch auf die Zeile nach dem GOSUB springt. 

Sinn und Zweck der Unterprogramm-Technik ist, Pro¬ 
grammteile zu bilden, die man nicht nur innerhalb eines 
Programms mehrfach verwenden kann, sondern die auch 
in sich beliebig verändert werden können, ohne das Haupt¬ 
programm zu stören. Alles, was bekannt beziehungsweise 
konstant bleiben muß, ist die Anfangs-Zeilennummer des 
Unterprogramms. 

Ein weiterer Vorteil eines Unterprogramms ist, daß es 
einzeln auf Band oder Diskette in einer »Unterprogramm- 
Bibliothek« gespeichert und in anderen Programmen ein¬ 
gesetzt werden kann, ohne es immer wieder neu program¬ 
mieren zu müssen. 

Wir erklären den Programmteil »STOP & ERGEBNIS« ab 
Zeile 1430 ebenfalls zum Unterprogramm und springen 
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nach dem ersten Unterprogramm »ZEITSCHLEIFE & EIN¬ 
GABE« mit einem zweiten GOSUB-Befehl dorthin. Voraus¬ 
setzung ist, daß es mit RETURN abgeschlossen ist: 

—► 240 GOSUB 1430 
1500 RETURN 

Wenn Sie das Programm jetzt schon laufenlassen, wer¬ 
den Sie sehen, daß nur noch wenig fehlt. Zum einen wer¬ 
den die Ergebnisse der einzelnen Mitspieler aufaddiert, 
zum zweiten fehlt noch eine Rücksetzung vor jedem neuen 
Spieler, und als letztes brauchen wir noch ein Gesamter¬ 
gebnis. Diese Dinge sind aber nichts Neues für uns. 

—*• 250 PRINT CHR$(l47) 

260 R=0 

Diese beiden Zeilen besorgen das Löschen und die 
Rücksetzung des Einzelresultats R. Dieses R müssen wir 
aber speichern, um es am Ende ausdrucken zu können. 
Das machen wir am Schluß des zweiten Unterprogramms, 
wo wir ja in Zeile 1450 das Einzelergebnis R ausdrucken. 

Das Gesamtergebnis besteht also aus soviel Einzeler¬ 
gebnissen, wie Mitspieler vorhanden sind. Das schreit 
nach einem Feld! 

Da sicher weniger als elf Mitspieler vorzusehen sind, 
brauchen wir das Feld nicht zu dimensionieren. Wir teilen 
direkt einer Feldvariablen R(SP) die jeweiligen Einzelresul¬ 
tate zu, wobei SP ja von 1 bis MS hochgezählt wird. Da¬ 
durch werden alle anfallenden Werte von R gespeichert. 
—► 1450 R(SP)=R 
1460 PRINT R(SP) 

1470 PRINT"ZUR FORTSETZUNG TASTE DRÜCKEN" 

1480 GET A$:IF A$="" THEN 1480 , 

Im Schlußteil wird das Endergebnis ausgedruckt. Es 
steht, wie gesagt, in einem Feld R(0), R(1),...R(letzter Spie¬ 
ler), das wir mit einer FOR-NEXT-Schleife ausdrucken: 

—»- 430 F0R 1=1 T0 (SP-1) 

440 PRINT"SPIELER "I" HAT: "R(I) 

450 NEXT I 
460 END 

Zeile 460 ist wichtig, da sie das Hauptprogramm von den 
Unterprogrammen trennt. 

Dieses Programm hat uns also in die Technik der Unter¬ 
programme eingeführt, außerdem haben wir durch eine 
Schleife mit Abfrage der inneren Uhr des C64 eine Zeit¬ 
steuerung des Programms erreicht, haben Farbänderun¬ 
gen eingesetzt und letztlich wieder einmal eine Feldvaria¬ 
ble verwendet. 

In Listing 9 ist das ganze Programm zusammengefaßt. 

Wir haben dort die beiden Unterprogramme an das Ende 
gelegt. Das war leicht zu erreichen durch einfache Umnu- 


Basic-Befehl Nr. 29 GOSUB-RETURN 

- der Befehl wird geschrieben: 

GOSUB Zeilennummer 

- er erzeugt einen Sprung in ein Unterprogramm, welches 
mit der hinter dem GOSUB stehenden Zeilennummer an¬ 
fängt 

- das Unterprogramm muß mit RETURN in der letzten Zeile 
abgeschlossen werden 

- RETURN springt zurück auf die Zeile, die direkt hinter 
dem GOSUB-Befehl steht 

- Unterprogramme können auch geschachtelt werden 

- Unterprogramme können sich selbst aufrufen, aber nur 
bis zu 25mal. Darüber hinaus ist zuwenig Speicherplatz 
zur Zählung der Aufrufe vorhanden 

- trifft ein Programm auf ein RETURN, ohne vorher ein GO¬ 
SUB gesehen zu haben, reagiert der Computer mit Ab¬ 
bruch und Fehlermeldung »RETURN WITHOUT GO¬ 
SUB« 


merierung der Zeilen. Wir mußten aber ans Ende des 
Hauptprogramms - noch vor den Unterprogrammen - ei¬ 
nen END-Befehl einfügen, um ein unerwünschtes Weiter¬ 
laufen des Programms zu verhindern. 

Es gibt nun auch die Möglichkeit, Unterprogramme prin¬ 
zipiell an den Anfang eines Programms zu legen. Das ver¬ 
meidet den Weiterlauf und hat außerdem eine kürzere Lauf¬ 
zeit. Ich habe das in dem Kurs »So macht man Programme 
schneller« im Sonderheft 2/1986 auf Seite 49 gemessen 
und beschrieben. 

Ein Programm sieht dann so aus: 


GOTO "Hauptprogramm" 


Unterprogramm Ul 
RETURI'f 


Unterprogramm U2 
RETURNT 


"Hauptprogramm" 
GOSUB Ul 
GOSUB U2 


100 PRINT CHRS(147) <129> 

110 INPUT"WAEHLE EIN SACHGEBIET";SS <235> 

120 INPUT"STELLE DIE UHR AUF";Z <082> 

130 B$=CHR$(INT(RND(0>*26+65>> <006> 

140 INPUT"WIEVIELE MITSPIELER";MS <197> 

150 SP=1 <182> 

O 200 PP" SCHLEIFE <124> 

210 PRINT"SPIELER "SP" IST AN DER REIHE" <118> 
220 PRINT"NENNE "SS“ DIE MIT "B$" ANFÄNGEN 

" <080> 

230 GOSUB 1230 <058> 

240 GOSUB 1430 <100> 

250 PRINT CHRS(147) <023> 

260 R=0 <231> 

270 SP=SP+1 <014> 

280 IF SPoMS+1 THEN 200 <077> 

400 : <122> 

410 REM ***** ENDERGEBNIS ***** <080> 

420 : <142> 

430 FOR 1=1 TO (SP-1) <074> 

440 PRINT"SPIELER "I" HAT: "Ed) <245> 

450 NEXT I <024> 

460 END <208> 

1200 : <160> 

1210 REM**** ZEITSCHLEIFE & EINGABE **** <013> 

1220 : <180> 

1230 PRINT"START MIT IRGENDEINER TASTE" <142> 

1240 GET X$:IF X$=''"THEN 1240 <087> 

1250 TI$="000000" <213> 

1260 REM SCHLEIFE <168> 

1270 GET ES <240> 

1280 W$=W$+E$ <136> 

1290 IF E$OCHR$( 13) THEN 1340 <200> 

1300 IF LEFT$(WS,1)OBS THEN 1330 <125> 

1310 PRINT WS; <241> 

1320 R=R+1 <214> 

1330 W$="" <177> 

1340 IF VAL(TI$)<>Z THEN 1270 <049> 

1350 RETURN <138> 

1400 : <106> 

1410 REM**** STOP & ERGEBNIS ****** <075> 

1420 s <126> 

1430 FOR F=0 TO 14 <254> 

1440 POKE 53280.F:NEXT F <104> 

1450 R(SP)=R <114> 

1460 PRINT"ZUR FORTSETZUNG TASTE DRUECKEN“ <203> 

1470 GET AS ; IF A$=" "THEN 1470 <253> 

1500 RETURN <032> 


0 64'er 

Listing 9. Das fertige Stadt-Land-Fluß 
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Basic-Befehl Nr. 30 ON GOSUB 

- der Befehl wird so geschrieben: 

ON Variable GOSUB mehrere Zeilennummern 
wobei die Zeilennummern durch Kommata getrennt sein 
müssen 

- die Variablenwerte legen fest, auf welche Zeilennummer 
der GOSUB-Befehl springt, und zwar: 

1.0 bis 1.9 1.Zeilennummer hinter dem GOSUB 

2.0 bis 2.9 2.Zeilennummer... 

3.0 bis 3.9 3.Zeilennummer... 

und so weiter 

- ist die Variable kleiner als 1, springt der GOSUB-Befehl 
nicht auf eine der Zeilennummern, sondern auf die nach 
dem ON-GOSUB folgende Zeile 

- ist die Anzahl der Variablenwerte größer als die Anzahl 
der Zeilennummern, verhält sich der ON-GOSUB-Befehl 
wie beim Variablenwert 0 oder kleiner als 1 

- einen negativen Variablenwert quittiert der Computer mit 
ILLEGAL QUANTITY. 

- hinter dem ON-Befehl kann auch eine Formel oder eine 
Funktion stehen, nur gilt für ihre Werte dasselbe wie für 
die Werte einer Variablen. 


Sprüngen wird. Mit unseren heutigen Kenntnissen würden 
wir diese fünf Funktionstasten mit fünf IF-THEN-Befehlen 
abfragen. Größere Menü brauchten dementsprechend 
mehr IF-THEN-Zeilen. 

In Basic gibt es einen Befehl, mit dem dies sehr viel leich¬ 
ter programmiert werden kann. Er heißt schlicht und ein¬ 
fach 

ON 

und wird in Verbindung mit dem GOTO oder GOSU B-Befehl 
verwendet. 


Basic-Befehl Nr. 31 ON GOTO 

Für ON GOTO gilt das gleiche wie für ON GOSUB, nur 
werden die Sprünge nach den Regeln des GOTO-Befehls 
ausgeführt 


Ein ON-GOSUB-Befehl sieht so aus: 

ON X GOSUB 100,150,200,250 
Diese Zeile ist gleichbedeutend mit: 

IF X=1 GOSUB 100 
IFX=2 GOSUB 150 
IFX=3 GOSUB 200 
IF X=4 GOSUB 250 


Diese Anordnung ist sicher nur dann empfehlenswert, 
wenn es auf Geschwindigkeit ankommt, und wenn viele 
Unterprogramme verwendet werden. 

Programme, die mit vielen Unterprogrammen arbeiten, 
verwenden oft eine eigene Technik, um »bedienungs¬ 
freundlich« zu sein. Mit diesem Begriff bezeichnet die Com¬ 
puterwelt Programme, deren Bedienung so ausgelegt ist, 


Die Variable X darf also nur die Werte 1,2,3,4 etc. anneh¬ 
men. Entsprechend springt der GOSUB-Befehl auf die er¬ 
ste, zweite, dritte oder vierte Zeilennummer. 

Hinter dem ON-Befehl kann auch ein Formelausdruck 
stehen, nur gilt bezüglich seines Resultats das gleiche wie 
für die Variable. Es ist klar, daß für Entscheidungen zu Un¬ 
terprogrammsprüngen nicht immer derartige »saubere« 
Zahlen zur Verfügung stehen. Damit aber die Umrechnung 


daß man von den Details des Programms oder vom Compu- in die >'Verte 1, 2, 3 etc. nicht aufwendiger als mehrere IF- 


ter selbst praktisch nichts zu verstehen braucht. Ein we¬ 
sentlicher Bestandteil sind die sogenannten »Menüs«. Me¬ 
nü heißt eigentlich Speisenfolge, im Englischen bedeutet 
»menü« aber auch Speisekarte und wird darum hier im 
übertragenen Sinne für Listen oder Aufzählungen verwen¬ 
det, aus denen man einzelne Punkte auswählen kann. 


GOSUB-Befehle wird, werden oft sehr pfiffige Rechen- und 
Programmierverfahren angewendet. Sie sind es fast immer 
wert, gesammelt zu werden, wenn man sie in einem Pro- 
grammlisting antrifft. 

Der Befehl ON darf auch in Verbindung mit dem GOTO- 
Befehl verwendet werden. 



Ich schreibe diesen Kurs auf meinem C64 mit einem be¬ 
kannten Textprogramm, das sich beim Einschalten mit fol¬ 
gendem Menü meldet: 

Fl Text bearbeiten 
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Positionierung des Cursors 


F3 Neuen Text eingeben 
F5 Disk Inhalt 
F7 Disk Befehle 
F8 Ende 

Je nachdem, welche Funktionstaste ich drücke, kann ich 
einen bereits angefangenen Text weiterbearbeiten oder mir 
anschauen, welche Programme sich auf der Diskette befin¬ 
den oder spät in der Nacht mit <F8> Schluß machen! 

Jede Überschrift bildet ein eigenes Unterprogramm, auf 
das durch Drücken der vorgegebenen Funktionstaste ge- 


Ich möchte Ihnen noch schnell die Programmierung des 
obigen Menü zeigen. Ein Menü beginnt immer mit seiner 
Darstellung auf dem Bildschirm. Das geht einfach über 
PRINT-Befehle, die nur wenige Zeilen auf dem Bildschirm 
verteilen müssen. Da es lästig ist, mit programmierten 
Cursor-Tasten zu operieren, gibt es noch zwei andere Cur¬ 
sorbefehle, die wir gleich anwenden wollen. Der eine heißt 

TAB() 

abgeleitet von »Tabulator«, der andere heißt 

SPC() 
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40 PRINT SPC(82) 
50 PRINT SPC(82)' 
60 PRINT SPC(82)' 
70 PRINT SPC(82)' 


( 2 ) 

W 

(4) 

(5) 


was vom englischen Wort »Space«, das heißt »Abstand« 
kommt. In der Klammer hinter den Befehlen kann eine Zahl 
von 0 bis maximal 255 stehen. 

Beide Befehle werden zusammen mit dem PRINT-Be- 
fehl verwendet. Beim TAB-Befehl rückt der Cursor ausge¬ 
hend vom linken Rand derjenigen Zeile, auf der er sich ge¬ 
rade befindet, um die in der Klammer stehende Anzahl von 
Leerstellen weiter. Der SPC-Befehl tut dasselbe, aber vom 
Punkt aus, auf dem sich der Cursor gerade befindet. 

10 PRINT CHR$(l47) 

20 PRINT SPC(90)"WAEHLEN SIE BITTE AUS" 

CHR$(147) löscht bekanntlich nicht nur den Bildschirm, 
sondern setzt auch den Cursor in die linke obere Ecke. Von 
dort aus springt er durch SPC(90) 90 Plätze weiter, das sind 
80 (also 2 Zeilen) und 10 Plätze. Sie können das leicht nach 
RUN auf dem Bildschirm abzählen. 

30 PRINT TAB(202)"(l) TEXT BEARBEITEN" 

Nach Ausführung der Zeile 20 steht der Cursor in der 
3. Zeile. 202 Plätze vom linken Rand der 3. Zeile aus ge¬ 
rechnet sind 5 Zeilen und 2 Plätze; also steht der Cursor in 
der 9. Zeile am 2. Platz, und die Klammer vor der 1 wird am 
3. Platz gedruckt. 

Ich will Ihnen gestehen, ich habe es auch nicht gerech¬ 
net, sondern einfach ausprobiert. 

Die nächsten Zeilen verwenden in gleicher Weise den 
SPC-Befehl. 

NEUEN TEXT EINGEBEN" 

DISK INHALT" 

DISK BEFEHLE" 

ENDE" 

Die Unterprogramme, die wir über das Menü auswählen 
wollen, lassen wir ab Zeile 500 beginnen. Ich deute sie na¬ 
türlich nur an: 

—500 PRINT CHR$(l47) 

510 PRINT "TEXT BEARBEITEN" 

520 RETURN 
530 : 

540 PRINT CHR$(l47) 

550 PRINT "NEUEN TEXT EINGEBEN" 

560 RETURN 
570 : 

580 PRINT CHR$(l47) 

590 PRINT"DISK INHALT" 

600 RETURN 
610 : 

620 PRINT CHR$(147) 

630 PRINT"DISK BEFEHLE" 

640 RETURN 
650 : 

660 PRINT CHR$(l47) 

670 PRINT"END" 

680 RETURN 

Die Unterprogramme beginnen also der Reihe nach bei 
500, 540, 580, 620 und 660. Dementsprechend lautet der 
ON-GOSUB-Befehl: 

—»- 110 0N A G0SUB 500, 540, 580, 620, 660 
120 PRINT"NULL" 

130 END 

Zeile 120 ist die Ziel-Zeile im Fall, daß für A ein Wert klei¬ 
ner als 1 eingegeben wird. 

Die Eingabe mache ich gewöhnlich mit GET A. 

In diesem Fall aber, wo ich Ihnen ermöglichen möchte, 
auch mit krummen Werten von A zu experimentieren, ma¬ 
chen wir es mit INPUT. 

—► 100 INPUT A 

So einfach ist das. Bitte experimentieren Sie ein bißchen 
mit diesem Programm. 


Basic-Befehle Nr. 32 und 33 TAB(A) SPC(A) 

- hinter den beiden Befehlen steht eine Zahl von 0 bis 255. 
Sie muß in Klammern stehen 

- TAB(I) und SPC(I) werden in Verbindung mit dem PRINT- 
Befehl verwendet 

- mit PRINT TAB(I) beginnt der Ausdruck auf dem Bild¬ 
schirm (oder auf dem Drucker) an dem durch I definierten 
Platz 

1=0 definiert den linken Rand der Zeile, auf welcher der 
Cursor sich gerade befindet, mit 1=20 werden 20 Plätze 
vom linken Rand aus übersprungen 

- mit PRINT SPC(I) beginnt der Ausdruck um genauso 
viele Plätze hinter der augenblicklichen Position des Cur¬ 
sors, wie durch I definiert werden 

1=0 bedeutet die augenblickliche Cursorposition, mit 
1=20 werden 20 Plätze übersprungen 

- beide Befehle springen auf den angegebenen Platz, 
ohne die übersprungenen Plätze zu löschen 

Bei dieser Gelegenheit bietet es sich an, einen weiteren 
Basic-Befehl zu erwähnen, der wie SPC und TAB mit der 
Position des Cursors auf dem Bildschirm zu tun hat, aller¬ 
dings in anderer Weise. Er heißt 

POS0 

was von POSITION abgeleitet ist. Seinem Namen entspre¬ 
chend liefert er die aktuelle Position des Cursors auf dem 
Bildschirm. 

Die Sache mit dem Cursor ist nicht ganz so genau zu 
nehmen. Es gibt ja Möglichkeiten innerhalb eines Pro¬ 
gramms, wo der Cursor überhaupt nicht auftaucht, zum 
Beispiel bei einer Stringmanipulation. In diesen Fällen 
zeigt T OS die Position hinter dem gerade bearbeiteten Zei¬ 
chen an. Denken Sie bitte daran, daß die Positionen in einer 
Zeile von 0 bis 39 gezählt werden. Ein Beispiel macht das 
viel klarer: 

PRINT"01234567" P0S(0) 

Dieser Direktbefehl druckt zuerst den String, bestehend 
aus den Ziffern 0 bis 7 aus und dann die Position hinter dem 
letzten Zeichen, und das ist die 8. 

Übrigens: hinter POS steht eine Klammer. Die Variable - 
auch Argument genannt- hat keine Bedeutung, es muß nur 
irgendeine Variable oder ein beliebiger Wert in der Klam¬ 
mer stehen. Sie wird im Fachjargon »Dummy«-Argument 
genannt. 

Leider hat der POS-Befehl eine Einschränkung. Er wirkt 
nur innerhalb einer »logischen« Zeile, nicht aber auf dem 
ganzen Bildschirm. Oder anders ausgedrückt, er wirkt nur 
waagrecht, nicht aber senkrecht, mit Ausnahme der Logi¬ 
schen Zeile. Was das ist, haben wir in Lektion 5 gelernt - es 
ist eine durch eine Zeilennummer gekennzeichnete Pro¬ 
grammzeile, die maximal aus zwei vollen Bildschirmzeilen 
bestehen kann. Der POS-Befehl gibt als Resultat daher 
Zahlen von 0 bis 79 aus. 

Den Beweis bringen folgende Programmzeilen: 

10 PRINT CHR$(147) 

20 PRINT TAB(238) "AAAAAA" P0S(0) 

30 PRINT TAB(238) "B" P0S(0) 

40 PRINT SPC(40) P0S(0) 

Nach den beiden TAB-Befehlen erscheinten die Posi¬ 
tionsnummern 44 und 39. Und nach dem SPC-Befehl für 40 
Leerstellen erscheint die Positionsnummer 0, denn diese 
logische Zeile ist gerade 1 Bildschirmzeile lang, so daß die 
nächste Positionsnummer 0, das heißt, der Anfang der 
nächsten logischen Zeile ist. 

Der POS-Befehl kann natürlich gut für eine Abfrage ver¬ 
wendet werden nach dem Muster: 

240 IF P0S(0) > 25 THEN . 
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Basic-Befehl Nr. 34 POS (Argument) 

- er liefert die aktuelle Position des Cursors auf dem Bild¬ 
schirm innerhalb einer »logischen« Zeile, das heißt Werte 
von 0 bis 79 

- wird kein Cursor angezeigt, dann bezeichnet er die Posi¬ 
tion hinter dem zuletzt bearbeiteten Zeichen 

- das Argument in der Klammer hinter dem POS-Befehl ist 
ein »Dummy«-Argument; es muß vorhanden sein, kann 
jedoch irgendeinen beliebigen Wert haben 


Ich habe bei der Aufzählung der Vorteile, welche die 
Unterprogramm-Technik attraktiv machen, erwähnt, daß es 
sinnvoll ist, sich eine Bibliothek von nützlichen Unterpro¬ 
grammen anzulegen, die dann immer wieder in andere 
Programme eingebaut werden können. Nun, das klingt gut 
und einleuchtend, aber wie hängt man ein Unterprogramm, 
das in der »Bibliothek« - sprich auf Band oder Diskette - 
steht, an ein Hauptprogramm im Computer? 

Gute Frage, kann ich nur sagen, denn das Basic der 
Commodore-Computer kennt leider keinen Befehl dafür. Es 
gibt ihn, bei anderen Computern oder bei Befehlserweite¬ 
rungsprogrammen. Er heißt MERGE oder manchmal auch 
APPEND, was mit »Verschweißen« oder »Anhängen« über¬ 
setzt werden kann. Wir müssen ihn in Basic nachvoll¬ 
ziehen, was aber nicht schwer ist. 
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Programme zusammenbinden 


Wie gesagt, MERGE ist kein Basic-Befehl, sondern ein 
Kochrezept. 

Ich schreibe Ihnen zuerst das Kochrezept auf und erkläre 
anschließend, was dabei vorgeht. Es werden folgende 
Schritte gemacht: 

1. Ein Programm steht im Speicher (RAM) des Compu¬ 
ters. Ein zweites Programm, das auf Band oder Diskette 
steht, soll dazugeladen werden. 

2. Da das Programm auf Band oder Diskette (2. Pro¬ 
gramm) hinter das Programm im RAM (1. Programm) ge¬ 
hängt wird, ist es empfehlenswert, daß das 2. Programm 
höhere Zeilennummern als das 1. Programm hat. 

3. Die folgende Zeile direkt eingeben und mit 
< RETURN > abschließen: 

—► POKE 43,PEEK(45)-2:P0KE 44,PEEK(46) 

4. Jetzt wird das 2. Programm ganz normal mit LOAD in 
den Computer geladen 


5. Die folgende Zeile direkt eingeben und mit 
<RETURN> abschließen: 

—► POKE 43,1:POKE 44,8 

Das ist alles; jetzt steht das 1. Programm und das 2. Pro¬ 
gramm aneinandergehängt im Speicher des C64. 

Zur Erklärung dieses Kochrezeptes muß ich Sie an das 
Speicherbild in Lektion 21 erinnern, in dem ich die 
Speicheraufteilung dargestellt habe. Wie dort gezeigt, be¬ 
ginnt der für Programme verfügbare RAM-Speicher ab 
Adresse 2048 und geht bis 40959. 

In diesem Bereich stehen nun die Zeilen eines Pro¬ 
gramms, alle Namen und augenblicklichen Werte von Va¬ 
riablen, Felder und schließlich auch alle Texte von String- 
Variablen. Um ein Chaos zu vermeiden und um die Such¬ 
zeiten nach Variablenwerten möglichst kurz zu halten, ist 
dieser Speicherteil in Bereiche unterteilt. 

Der Arbeitsspeicher ist unabhängig von seiner durch 
Speichererweiterung veränderbaren Größe in vier Blöcke 
und einen Freiraum eingeteilt. 

- Block 1 beginnt immer an 2048 und enthält die Zeilen 
(Text) eines eingegebenen Programms. Sein oberes En¬ 
de ist variabel, es hängt von der Länge des Programms 
ab. 

- Block 2 schließt sich direkt an Block 1 an und enthält die 
numerischen Variablen und die Namen der String- 
Variablen. Sein Anfang ist identisch mit dem Ende des 1. 
Blocks. Deshalb ist dieser Anfang ebenfalls variabel. Da¬ 
durch ist aber auch das Ende von Block 2 variabel. Wenn 
zum Beispiel in ein Programm weitere Zeilen eingefügt 
werden, rutschen alle Grenzen der Speicherbereiche 
nach oben. 

- Block 3 enthält alle Felder. 

- Blc' v 4 beginnt am obersten Ende des Arbeitsspeichers 
und hängt von der Ausbaustufe des Speichers ab. 

Er enthält alle Texte der String-Variablen, auch die der 
Felder. Je nach Länge beziehungsweise Menge der Texte 
bewegt sich die Grenze des 4. Blocks nach unten, solan¬ 
ge bis sie die Grenze des 3. Blocks (die ja nach oben wan¬ 
dert) trifft. Dann ist der Speicher voll, und der Computer 
meldet OUT OF MEMORY. 

Jetzt kommt der Aspekt der Speicheraufteilung, der für 
unser MERGE-Kochrezept wesentlich ist. Es ist sicher ver¬ 
ständlich, daß der Computer, oder besser gesagt seine 
»Betriebsleitung«, jederzeit wissen muß, wo gerade die ver¬ 
schiedenen Grenzen der Blöcke liegen. Das Betriebs¬ 
system besitzt dazu im Systemspeicher (von Adresse 0 bis 
1023) einige Speicherzellen, in denen der jeweilige Adres¬ 
senstand der Blockgrenzen gespeichert ist. 

Diese Adressen treten immer paarweise auf. Das liegt 
daran, daß in einer Speicherzelle allein stets nur Zahlen 
von 0 bis 255 gespeichert werden können. Das ergäbe 256 
Adressen - wir brauchen aber mehr. Wenn man zwei Zellen 
sozusagen aneinanderhängt, erreicht man dadurch 
256*256=65536 Adressen. Diese doppelte Wortlänge - 
auch Low-/High-Byte-Darstellung genannt - erfordert na¬ 
türlich einen Rechenvorgang, um aus dem Inhalt von zwei 
Speicherzellen die dadurch repräsentierte Adresse zu er¬ 
halten. 

Wie und warum das so ist, erkläre ich ein paar Absätze 
weiter unten im Abschnitt »Die Low/High-Byte-Darstel- 
lung«. Hier ist nur die Umrechnungsformel interessant. 
Steht in den beiden Speicherzellen X und Y eine Adresse, 
wird diese ausgerechnet mit: 

Adresse = X + 256 *Y 

Das MERGE-Konzept wollen wir dadurch ausprobieren, 
daß wir vor das Listing 9 (das Spiel mit Zeitbegrenzung) das 
Listing 6, nämlich die farbige Umrandung setzten und so 
ein Programm mit Vorspann daraus machen. 
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ln dem Speicherzellenpaar 43/44 steht also die Anfangs¬ 
adresse des Arbeitsspeichers. Wir prüfen das nach mit: 

—► X=PEEK(43):Y=PEEK(44) 

PRINT X:PRINT Y 
PRINT X+256*Y 

Das Ganze geht natürlich viel kürzer in einer einzigen 
Zeile: 

—► PRINT PEEK(43) + 256 * PEEK(44) 

Wir erhalten beim C64 die Zahl 2049 als Speicheran¬ 
fang. Entsprechend steht im Speicherzellenpaar 45/46 die 
Adresse des Endes von Block 1. 

Laden Sie bitte Listing 6 in den Speicher und überprüfen 
das Blockende mit: 

—► PRINT PEEK(45) + 256 * PEEK(46) 

Bei mir erscheint da die Zahl 2252, ich hoffe, bei Ihnen 
auch. 

Beim MERGE-Kochrezept führen wir das Betriebssy¬ 
stem des C64 hinters Licht. Mit den Befehlen: 

—► POKE 43 ,PEEK(45)-2:POKE 44,PEEK(46) 
schreiben wir in die Speicherzelle 43 diejenige Zahl, um 2 
vermindert, die in Speicherzelle 45 steht. Das gleiche ma¬ 
chen wir mit der Speicherzelle 44. 

Dadurch verschieben wir mutwillig die Anfangsadresse 
des Arbeitsspeichers an das Ende des Blocks 1. Da die letz¬ 
ten zwei Speicherzellen hinter einem Programm zur Kenn¬ 
zeichnung des Endes immer nur Nullen enthalten, ziehen 
wir die 2 ab. 

Der Computer glaubt nun, der Arbeitsspeicher beginne 
bei Adresse 2550 - und ab da lädt er jetzt das Listing 9, ohne 
Listing 6 zu berühren. Danach allerdings müssen wir die 
Anfangsadresse wieder an ihren ursprünglichen Platz 
schieben mit: 

—► POKE 43,1:POKE 44,8 

denn 1+256*8 ergibt 2049, was vorher ja dort stand. 

Wenn Sie jetzt LISTen, dann stehen beide Programme 
als ein neues, größeres Programm im Speicher und dieses 
kann - unter neuem Namen - gespeichert werden. 

Speicherzellenpaare wie 43/44,45/46 nennen wir Zeiger, 
weil sie auf eine andere Adresse zeigen. Das Hantieren mit 
Zeigern ist eine sehr reizvolle Sache. Ich bin sicher, Sie wer¬ 
den noch oft damit konfrontiert. Es gibt viele Artikel darüber, 
ich will mich in diesem Anfängerkurs auf das bisher Gesag¬ 
te beschränken - es soll ja auch nur eine Einführung sein. 

Halt, die doppelte Wortlänge muß ich noch erklären. 



Die Low-/High-Byte-Darstellung 


Ich setze voraus, daß Sie das duale Zahlensystem mit sei¬ 
nen Nullen und Einsen kennen, und daß Sie dadurch wis¬ 
sen, was ein Bit ist, außerdem, wie man Dualzahlen in Dezi¬ 
malzahlen und umgekehrt umwandelt. 

Eine Speicherzelle des C64 hat eine Länge von 8 Bit = 

1 Byte. 

Mit diesen 8 Bit können Zahlen von 0 bis 255 dargestellt 
werden. Zur Darstellung von Zahlen über 255 verwenden 
wir die Low-/High-Byte-Methode. 

Wir hängen einfach zwei Speicherzellen zusammen, mit 
deren 16 Bit wir Zahlen bis maximal 65535 darstellen kön¬ 
nen. Die maximale Zahl 65535 ist übrigens auch die höch¬ 
ste Adresse des gesamten Speichers - was natürlich kein 
Zufall ist. 

Ich will Ihnen jetzt zeigen, wie eine Dezimalzahl auf zwei 
8-Bit-Speicherzellen verteilt wird und umgekehrt: Wie aus 

2 Byte eine Dezimalzahl gebildet wird. 

Schauen Sie sich das folgende Beispiel an: 


DEZIMAL 

47491 

DUALZAHL 

1011 1001 1000 0011 

HIGH BYTE 

185 


LOW BYTE 


131 


Wir gehen von der Dezimalzahl 47491 aus. Ihre duale 
Darstellung mit 16 Bit - 1011100110000011 - teilen wir ein¬ 
fach in der Mitte und erhalten damit zwei neue Dual-Zahlen 
mit je 8 Bit = 1 Byte. Das linke Byte nennen wir High-Byte, 
da es den höheren Teil der Gesamtzahl darstellt. Das rechte 
Byte heißt entsprechend Low-Byte. Jedes der beiden Bytes 
kann für sich allein in einer Speicherzelle untergebracht 
werden, in der natürlich dann der dezimale Wert des Bytes 
steht. Zur Umrechnung der Low-/High-Bytes empfehle ich 
folgende Kochrezepte: 

Dezimal in Low-/High-Byte 
47491:256=185 (High-Byte), Rest 131 (Low-Byte) 

Der Rest fällt bei der Division per Hand automatisch an. 
Mit dem (Taschen)Rechner erhält man den Rest durch: 

185*256-47491=-131 
Low-/High-Byte in Dezimal 
High-Byte * 256 + Low-Byte = Dezimal 
185 * 256 + 131 = 47491 

Eine wichtige Regel gilt es noch zu beachten: Der Mikro¬ 
prozessor des C64 verlangt, daß immer das Low-Byte vor 
dem High-Byte kommen muß. Die Zahl wird sozusagen von 
rechts nach links gelesen, in unserem Beispiel 131, 185. 


28 


Dateien (Files) 



ln Lektion 20 haben wir ein Programm gebaut, in dem Va¬ 
riablenwerte in ein Feld gespeichert wurden. Wir waren da¬ 
mals noch nicht in der Lage, diese Feldvariablen auf Band 
oder Diskette abzuspeichern. Ich habe Sie damals gebe¬ 
ten, das Programm-Fragment abzuspeichern, bis wir so¬ 
weit wären, mehr vom Speicher und vom Speichern zu wis¬ 
sen. 

Jetzt sind wir soweit. Mit den Befehlen LOAD speichern 
wir nur den Inhalt vom 1. Block ab. Die Feldvariablen 
stecken aber im 3. Block!! 

28.1. Der Unterschied zwischen Programm und Datei 
(File) 

Der Computer unterscheidet glücklicherweise beim 
Speichern auf externe Speichergeräte (Datasette, Diskette) 
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zwischen Daten aus dem 1. Block und den Blöcken 2,3 und 
4. Daten aus den letzteren nennen wir eine Datei oder auf 
englisch File. 

Ein Programm besteht aus einer Ansammlung von nu¬ 
merierten Zeilen. Jede Zeile enthält Anweisungen an den 
Computer. Diese Anweisungen werden nach RUN zeilen¬ 
weise ausgeführt, in Reihenfolge der aufsteigenden Zeilen¬ 
nummern. 

Eine Datei (File) besteht aus rohen Daten, wie Angaben 
in einem Adreßbuch, ohne jede Angabe, was damit ge¬ 
macht werden soll. Der bekannte Computerjournalist Ri¬ 
chard Mansfield hat zur Erklärung dieses Unterschieds ein¬ 
mal das einleuchtende Beispiel einer Dose mit Tomaten¬ 
suppe gebracht. Der Aufkleber der Dose enthält sowohl ei¬ 
ne Datei als auch ein Programm. 

Die Datei lautet: 

Wasser, Tomaten, Salz, 

Monosodiumglutamat, Farbstoff, 

Oleoresin 

Das Programm lautet: 

1. Vorsichtig öffnen 

2. Inhalt in einen Topf leeren 

3. eine Tasse Wasser hinzufügen 

4. auf kleiner Flamme erhitzen 

5. ungewürzt servieren 

Ich bin sicher, Sie sehen jetzt den Unterschied. 
Programme werden mit SAVE auf Band und auf Diskette 
gespeichert. 

Dateien werden mit einer eigenen Befehlskombination 
OPEN, PRINT # und CLOSE sowohl auf Band als auch auf 
Disketten gespeichert. 

Genau das wollen wir jetzt lernen. 

28.2. Dateien (Files) speichern 

Wenn man eine Datei laden oder speichern will, muß zu¬ 
allererst eine Verbindung zwischen Computer und dem ex¬ 
ternen Speichergerät hergestellt werden. Ich meine damit 
nicht das Verbindungskabel, das brauchen wir bei Spei¬ 
chern und Laden von Programmen ja auch. Ich meine hier 
eine Anweisung an den Computer, sich für den Transfer von 
Daten über das externe Gerät bereitzuhalten. 

Man nennt das auch: 

»eine Datei eröffnen«. 

Es ist vergleichbar mit dem Herausziehen und Öffnen ei¬ 
nes Karteikastens, um Zugriff zu den Daten auf den Kartei¬ 
karten zu haben. 

Der Befehl dazu heißt 

OPEN 

was natürlich »Öffnen« heißt. 

Die zusätzlichen Angaben hinter OPEN bedürfen einer 
Erklärung. Sie sind sicher für den Anfänger verwirrend, 
und wir brauchen sie jetzt auch gar nicht alle. Man findet je¬ 
doch selten eine komplette Übersicht, daher mache ich die 
Aufstellung vollzählig - für später. 

Basic-Befehl Nr. 35 OPEN 

- der OPEN-Befehl öffnet eine Datei zum Schreiben oder 
Lesen. Mit diesem Befehl wird automatisch ein Puffer¬ 
speicher angelegt, mit dem die verschiedenen Arbeits¬ 
geschwindigkeiten der externen Speichergeräte ausge¬ 
glichen werden können. 

- hinter dem OPEN-Befehl stehen bis zu sechs weitere An¬ 
gaben, die durch Kommata voneinander getrennt sein 
müssen. Diese Angaben sind: 

OPEN Dateinummer,Gerätenummer, 
Sekundäradresse," Dateiname,Typ, Modus " 


Datei-Nummer 

ist die Kennzeichnung der eröffneten Datei. Sie kann ei¬ 
ne Zahl zwischen 1 und 255 sein. Sie ist wichtig und dient 
als Referenz beim Umgang mit dieser bestimmtem Datei; 
dies um so mehr, als gleichzeitig bis zu zehn verschiedene 
Dateien geöffnet sein können. 

Gerätenummer 

ist eine Kennzahl dafür, mit welchem externen Gerät die 
Verbindung hergestellt wird. Dabei gilt: 

0 Tastatur 

1 Kassettenrecorder (Datasette) 

3 Bildschirm 

4 Drucker 1 

5 Drucker 2, meistens Plotter 

8 Diskettenlaufwerk 1 

9 Diskettenlaufwerk 2 

4 bis 127 Geräte, die am seriellen Bus angeschlossen sind 
128 bis 255 Geräte über seriellen Bus, mit einem Zeilenvor¬ 
schub nach dem Zeilenende. 

Diese Angaben sagen Ihnen jetzt noch nichts. Übrigens: 
Wenn die Gerätenummer weggelassen wird, stellt der 
Computer automatisch die 1 für Datasette ein. 
Sekundär-Adresse 

kann eine Zahl zwischen 0 und 255 sein. Diese Zahl hat 
bei den verschiedenen externen Geräten unterschiedliche 
Bedeutung. 

Tastatur keine Wirkung 

Kassettenrecorder 0 vom Band lesen 

1 auf Band schreiben 

2 auf Band mit »Bandende«- 
Markierung schreiben 

Bildschirm keine Wirkung 

Druck" 0 bis 10 die Funktionen sind bei den 

Druckerfabrikaten zum Teil 
unterschiedlich, bitte im 
Drucker-Handbuch nachsehen 

Diskettenlaufwerk 

0 und 1 vom Betriebssystem reserviert 
2 bis 14 reserviert einen numerierten 
Datenkanal, bis zu 
drei gleichzeitig 

15 reserviert einen Befehls-Kanal 

Datei-Name 

steht immer zwischen Anführungszeichen. Er kann bei 
der Datasette auch weggelassen werden. 

Datei-Typ 

wird nur bei Diskettenoperationen verwendet und steht 
innerhalb der Anführungszeichen hinter dem Datei- 
Namen; er bezeichnet die folgenden Typen: 

5 sequentielle Datei 
U User-Datei 

P Programm-Datei 
R relative Datei 

Wir werden uns im Rahmen dieses Kurses nur mit se¬ 
quentiellen Dateien befassen, erstens, weil mit der Dataset¬ 
te nur dieser Typ möglich ist und zweitens, weil er leichter 
zu verstehen ist. 

Modus 

wird nur bei Diskettenoperationen verwendet und legt 
fest, wie der Datenkanal genutzt werden soll: 

W Schreiben einer Datei (Write) 

R Lesen einer Datei (Read) 

A Verlängern einer sequentiellen Datei (Append) 

M Lesen einer nicht geschlossenen Datei 
Nun bitte keine Panik! 

In diesem Kurs brauchen wir nur Bruchteile daraus. Aber 
immerhin ist das alles ein guter Fingerzeig, daß speziell 
Diskettenoperationen sehr raffiniert sein können. 
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Zurück zur Anwendung des OPEN-Befehls. Mit: 

—► 10 OPEN 1,1,1,"TEXT" 

eröffnen wir also die Datei "TEXT" auf der Datasette. 

Für die Diskette lautet derselbe Befehl: 

—*• 10 OPEN 1,8,3, "TEXT,S,W" 

S steht für sequentielle Datei, W für Schreiben. 

Um jetzt Daten auf das externe Gerät schreiben zu kön¬ 
nen, verwenden wir eine Variante des PRINT-Befehls, er 
heißt 

PRINT# 

Hinter PRINT # muß immer dieselbe Datei-Nummer ste¬ 
hen, die beim OPEN-Befehl verwendet worden ist - sie ist 
die Referenz. Danach folgt die zu schreibende Variable. 

—* 20 PRINT#1, "FUSSBALL" 

30 PRINT#1, "TENNIS" 

Damit haben wir die zwei Wörter abgesendet. Hinter ei¬ 
nem PRINT #-Befehl darf immer nur eine Variable oder ein 
String stehen, damit die Daten in der Datei einen Abstand 
haben. Als nächstes muß die eröffnete Datei wieder ge¬ 
schlossen werden. Entsprechend zum Eröffnungsbefehl 
lautet der Schließbefehl CLOSE. Er wird mit der Nummer 
der Datei versehen. 

—*• 40 CLOSE 1 
50 END 

Wenn Sie diese vier Zeilen laufenlassen, fordert die Da¬ 
tasette zum Drücken der RECORD- und PLAY-Tasten auf, 
das Diskettenlaufwerk läuft sofort los und die Datei ist ge¬ 
speichert. 

Dasselbe machen wir jetzt für ein anderes Ausgabege¬ 
rät, nämlich für den Drucker - mit der Gerätenummer 4. 

—► 10 OPEN 1,4 

20 PRINT# 1, "FUSSBALL" 

30 PRINT#1, "TENNIS" S*£R C UnM* 

40 CLOSE 1 

Zeile 10 bewirkt, daß die beiden Wörter jetzt vom Drucker 
ausgedruckt werden. 


Um Daten einer Datei zu lesen, gibt es gleich zwei Befeh¬ 
le, die Sie in ähnlicher Form schon kennen, nämlich 
INPUT# und GET#. 

Zuerst wenden wir den INPUT#-Befehl an. 

In unserer Datei haben wir zwei Strings gespeichert. Mit 
folgender Zeile lesen wir sie: 

110 INPUT# 1,A$,B$ 

120 PRINT A$,B$ 

130 CLOSE 1 

In Zeile 120 trenne ich das Ausdrucken von A$ und B$ mit 
einem Komma. Mit dem Klebeeffekt des Semikolon würde 
nämlich das Wort FUSSBALLTENNIS ausgedruckt wer¬ 
den. Probieren Sie das kleine Leseprogramm mit RUN 100 
aus. 

Das ganze Listing für Schreiben und Lesen einer String- 
Datei sieht so aus: 

10 OPEN 1,1,1,"TEXT" ...für Band 

10 OPEN 1,8,3,"TEXT,S,W" ...für Diskette 

20 PRINT#1, "FUSSBALL" 

30 PRINT#1, "TENNIS" 

40 CLOSE 1 
50 END 
60 : 

100 OPEN 1,1,0,"DATEI" ... für Band 

100 OPEN 1,8,3,"DATEI,S,R" ...für Diskette 
HO INPUT#1,A$,B$ 

120 PRINT A$,B$ 

130 CLOSE 1 

Für eine Datei mit numerischen Variablen sieht das Pro¬ 
gramm fast gleich aus: 


.für Band 
,.für Diskette 


Basic-Befehl Nr. 36 PRINT# 

- der PRINT#-Befehl sendet Daten einer Datei auf Band, 
Diskette oder Drucker. Maximal können mit einem 
PRINT#-Befehl 255 Zeichen gesendet werden 

- dem PRINT #-Befehl muß dieselbe Dateinummer folgen 
wie dem OPEN-Befehl, der die Datei eröffnet hat 

- es können numerische und String-Variable sowie Feld- 
Variable gesendet werden. Wichtig ist, daß die einzelnen 
Variablen durch das RETURN-Zeichen voneinander ge¬ 
trennt sind. RETURN kann entweder durch separate 
PRINT #-Befehle oder durch CHR$(13) erzeugt werden 

Basic-Befehl Nr. 37 CLOSE 

- dieser Befehl schließt eine eröffnete Datei 

- der CLOSE-Befehl wird lediglich mit der Nummer der Da¬ 
tei versehen, die er schließen soll 

- jede Datei muß unbedingt geschlossen werden, da an¬ 
dernfalls keine Endmarkierung hinter die letzte Daten¬ 
eintragung geschrieben wird. Dadurch können die letz¬ 
ten Daten verlorengehen. In dem Inhaltsverzeichnis (Di¬ 
rectory) einer Diskette ist eine nicht geschlossene Datei 
mit dem Stern »*« gekennzeichnet. 

28.3 Dateien (Files) laden 

Jetzt kommt der andere Teil - eine auf Band oder Diskette 

gespeicherte Datei in den Computer laden oder lesen. Die 

Datei muß wieder eröffnet werden, diesmal zum Lesen. 
Für die Datasette lautet der Befehl: 

100 OPEN 1,1,0,"DATEI" 

Für die Diskette dagegen muß es heißen: 

100 OPEN 1,8,3,"DATEI,S,R" 


,.für Band 
,.für Diskette 


1,1,1,"ZAHLEN" 

200' OPEN 1,8,3"ZAHLEN,S,W" 

210 PRINT# 1,35 
220 PRINT #1,14 
230 PRINT #1,753 
240 PRINT #1,2 
250 CLOSE 1 
260 END 
270 : 

300 OPEN 1,1,0,"ZAHLEN" 

300 OPEN 1,8,3,"ZAHLEN,S,R" 

310 INPUT#1,A,B,C,D 
320 PRINT A;B;C;D 
330 CLOSE 1 

Bei Zahlen dürfen wir in Zeile 320 ruhig Semikolons ver¬ 
wenden, da Zahlen von selbst Trennungsabstände haben. 

Wir wollen noch die Wirkungsweise des GET #-Befehls 
ausprobieren. Ersetzen Sie im ersten Programm in Zeile 
110 das INPUT# durch GET#: 

110 GET # 1, A$, B$ 

Nach RUN 100 erhalten wir den weit auseinandergezo¬ 
genen Ausdruck der Buchstaben F und U. So geht es also 
nicht - GET# nimmt immer nur ein Zeichen. 


Basic-Befehl Nr. 38 INPUT# 

-der INPUT#-Befehl liest, wie GET#, Daten einer mit 
OPEN eröffneten Datei externer Eingabegeräte 

- hinter INPUT # muß die Datei-Nummer des OPEN- 
Befehls stehen 

- während GET # Zeichen für Zeichen liest, holt INPUT # 
ganze Datengruppen 

-hinter einem INPUT#-Befehl können mehrere, durch 
Kommata getrennte Variable stehen 

- ein String darf nicht länger als 80 Zeichen sein 

- INPUT # kann nicht im Direkt-Modus verwendet werden 


100 
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Wir müssen GET# wiederholt einsetzen, am besten mit 
einer Schleife. 

110 GET#1,A$ 

120 PRINT A$; 

125 GOTO 110 

Jetzt erhalten wir die beiden Wörter FÜSSBALL und 
TENNIS, aber die Schleife stoppt nicht. Wir prüfen daher, 
wann das letzte Zeichen erscheint und CLOSEn dann die 
Datei. Dazu müssen wir im Eingabeteil (Zeile 30) hinter dem 
letzten String ein einzigartiges, erkennbares Zeichen ein¬ 
setzen. Ich habe einfach hinter Tennis ein Leerzeichen ge¬ 
setzt. 

Leider müssen wir dadurch die Datei neu eingeben, am 
besten mit einem anderen Namen in Zeile 10 und 100. Oder 
aber Sie löschen die alte Datei »TEXT«. 

—► 30 PRINT #1, "TENNIS " 

123 IF A$=" " THEN 130 
Das sind die geänderten Zeilen. 


Basic-Befehl Nr. 39 GET # 

- der GET # -Befehl funktioniert genauso wie der normale 
GET-Befehl: Er liest einzelne Zeichen einer geöffneten 
Datei von einem Eingabegerät. Die Anzahl der Zeichen 
(Länge der Strings) ist beliebig 

- hinter GET # muß die Datei-Nummer des OPEN-Befehls 
stehen 

- GET# kann nicht im Direkt-Modus verwendet werden 


Das wiederholte Schreiben der einzelnen PRINT#-Be¬ 
fehle ist natürlich sehr lästig. Besser geht das mit einer 
FOR-NEXT-Schleife, wobei die zu speichernden Daten ent¬ 
weder direkt per normalen INPUT-Befehl eingegeben oder 
mit READ aus gespeicherten DATA-Zeilen geholt werden. 
Ich zeige das an unserer TEXT-Datei in der GET-Version: 
—► 10 OPEN 1,8,3,"TEXT,S,W" 

10 OPEN 1,1,1,"TEXT" 

20 F0R 1=1 T0 3 
30 READ A$ 

40 PRINT #1,A$ 

50 NEXT I 
60 CL0SE 1 

70 DATA FUSSBALL,TENNIS,* 

80 END 
90 : 

100 OPEN 1,8,3,"TEXT,S,R" 

100 OPEN 1,1,0,"TEXT" 

110 GET # 1, A$ 

120 IF A$="#" THEN 130 
123 PRINT A$; 

125 GOTO 110 
130 CL0SE 1 

Ich habe die Zeile 120, die auf Datei-Ende prüft, leicht ge¬ 
ändert. Sie prüft jetzt auf ein abschließendes Zeichen »*«, 
das ich als letzte Eintragung in die neue DATA-Zeile 70 ge¬ 
schrieben habe. READ und PRINT #1 erfolgen nun inner¬ 
halb einer Schleife zwischen Zeile 20 und 50. 

Sie müssen leider wieder die Datei TEXT entweder lö¬ 
schen (Diskette) oder überschreiben (Band). Mit RUN läuft 
der Schreibteil des Programms bis Zeile 80. Mit RUN 100 
starten Sie den Leseteil. 

Den abspeichernden Teil (also Zeilen 10 bis 70) können 
wir natürlich auch für die Druckerausgabe verwenden. 

Der OPEN-Befehl lautet dafür: 

210 OPEN 1,4 

Ab Zeile 220 können Sie die Zeilen 20 bis 70 vom oberen 
Programm übernehmen, indem Sie eine 2 vor die »alten« 
Zeilennummern eingeben. 


Das Programm sieht jetzt so aus: 

210 OPEN 1,4 
220 FOR 1=1 TO 3 
230 READ A$ 

240 PRINT# 1,A$ 

250 NEXT I 
260 CLOSE 1 

270 DATA FUSSBALL,TENNIS,# 

Nach RUN druckt der Drucker die Wörter der DATA-Zeile 
aus. So einfach ist das. 

28.4. Kommandogewalt an das externe Gerät 

Basic bietet die Möglichkeit an, mit »normalen« Befehlen 
die angeschlossenen Geräte anzusteuern. Das beste Bei¬ 
spiel dafür ist der Befehl LIST. Wenn er normalerweise das 
im Programmspeicher des C64 stehende Programm auf 
dem Bildschirm auslistet, dann soll es möglich sein, mit 
LIST das Programm auch auf dem Drucker auszudrucken. 

Der Befehl dazu ist vom englischen Wort »Command« 
abgeleitet und heißt 

CMD Dateinummer 

In Anwendung sieht das, als Direktbefehl eingegeben, so 
aus: 

—► OPEN 1,4:CMD 1:LIST 

Jetzt gilt der LIST-Befehl nicht für den Bildschirm, son¬ 
dern für den Drucker. 

Um die Kommandogewalt wieder dem Bildschirm zu 
übertragen, muß die Verbindung zum Drucker gelöst wer¬ 
den mit: 

—► PRINT# 1: CLOSE 1 

Der CMD-Befehl kann auch mit einem Kommentar (wie 
beim INPUT-Befehl) versehen werden, den er im angespro¬ 
chenen Gerät »ausdruckt«. Im obigen Beispiel angewen¬ 
det: 

—► OPEN 1,4:CMD 1, "LISTING-NAME":LIST 

Dadurch wird zu Beginn des Listings die Überschrift 
LISTING-NAME ausgedruckt. 

Ein Programm im Speicher kann auch als sequentielle 
Datei auf die Diskette abgespeichert werden: 

—► OPEN 1,8,2,"PROGRAMM-NAME,S,W" 

—*- CMD 1:LIST 

Jetzt wird das Programm auf der Diskette »ausgeLISTet«, 
das heißt, es wird sequentiell gespeichert. 

—*• PRINT# 1: CLOSE 1 

Ausgelesen wird es in der schon beschriebenen Weise. 
Nicht nur LIST ist ein sinnvoller Befehl, auch PRINT kann 
anstelle von PRINT# verwendet werden. 

10 OPEN 1,4 
20 CMD 1 

30 PRINT"FUSSBALL" 

40 PRINT"TENNIS" 

50 CLOSE 1 

Damit werden die beiden Wörter FUSSBALL und TEN¬ 
NIS direkt ausgedruckt - mit PRINT ohne # ! 

Basic-Befehl Nr. 40 CMD 

- er muß immer mit derselben Dateinummer versehen 
sein, mit der eine Datei durch OPEN eröffnet worden ist. 

- die dem CMD-Befehl folgenden Befehle (z.B. LIST oder 
PRINT) wirken dann auf das angewählte Gerät. 

- CMD kann, durch ein Komma getrennt und mit Anfüh¬ 
rungszeichen versehen, mit einem Kommentar versehen 
werden, der dann ausgedruckt oder gespeichert wird: 

CMD 1," KOMMENTAR" 

- die Wirkung von CMD kann auf drei Arten aufgehoben 
werden: 

• CMD 3 (Gerätenummer des Bildschhirms) 

• PRINT# 

• Drücken von <RUN/STOP+RESTORE> 


— für Diskette 
...für Band 


...für Diskette 
...für Band 
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Zum Schluß der Datei-Betrachtungen will ich mein Verspre¬ 
chen einlösen, das ich in Lektion 20 bei den zweidimensio¬ 
nalen Feldern gemacht habe. Ich will Ihnen nämlich zeigen, 
wie man Werte, die wir in Felder gelegt haben, abspei¬ 
chern, wieder laden und variieren kann. 

Dazu verwenden wir Listing 5, unser Programmbeispiel 
für zweidimensionale Felder. 

Wir wollen schrittweise Vorgehen. 

—► Laden Sie Listing 5 ein 
—► Fügen Sie folgende Zeilen dazu: 

500 REM- DATEI ABSPEICHERN - 

505 : 

510 OPEN 1,8,4,"LITERATUR,S,W" 

520 F0R S=1 T0 D 
530 FOR K=1 TO 6 
540 PRINT # 1,A$(S,K) 

550 NEXT K:NEXT S 
560 

670 CLOSE 1 

Dieser Programmteil speichert, wie Sie nicht nur aus 
dem Titel, sondern auch aus dem W (write) nach dem 
OPEN-Befeh! sehen können, das gesamte Feld A$ als Da¬ 
tei auf Diskette ab. Für die Datasette muß lediglich Zeile 510 
geändert werden: 

510 OPEN 1,1,1,"LITERATUR" 

—► RUN 

Damit lassen wir das Programm laufen, wodurch die Da¬ 
tensätze der DATA-Zeilen in das Feld eingelesen werden. 
Der nachfolgende Suchteil des Programms wird jetzt nicht 
weiter gebraucht und kann durch ein falsches Suchwort 
und durch »N« bei der Wiederholungsfrage abgebrochen 
werden. 

—► GOTO 500 (nicht RUN 500!) 

Genau wie RUN 500 setzt der Direktbefehl GOTO 500 
das Programm ab Zeile 500 fort, allerdings ohne die Varia¬ 
blen auf Null zurückzusetzen. Das ist wichtig, damit D sei¬ 
nen letzten, dem aktuellen Stand der Anzahl von Datensät¬ 
zen entprechenden Wert behält. Mit den Zeilen 500 bis 570 
wird das Feld als Datei abgespeichert. 

—► Löschen Sie alle DATA-Zeilen 

Wir brauchen sie nicht mehr, denn die Datensätze sind ja 
als Datei gespeichert. 

Um die Datei wieder in den Computer laden zu können, 
müssen wir den READ-Teil des Programm (Zeilen 110 bis 
170) umschreiben. Ich schreibe nur die Zeilen, die sich än¬ 
dern: 

—► 115 OPEN 1,8,3,"LITERATUR,S,R" 

(115 OPEN 1,1,0"LITERATUR" für Datasette) 

140 INPUT#1,A$(D,K) 

150 IF A$(D,K)= .usw..:G0T0 180 

180 CLOSE 1 

Um das Einlesen der Datei »LITERATUR« ausprobieren 
zu können, müssen wir das noch im Speicher stehende 
Feld mit den Datensätzen löschen, am besten mit Aus- und 
Einschalten des Computers. Vorher speichern Sie auf alle 
Fälle das unfertige Programm, am besten als Listing 10 A. 

—► Computer aus- und wieder einschalten 
—► Listing 10 A wieder LOADen und mit RUN 
laufenlassen 

Der Suchvorgang wird Ihnen zeigen und beweisen, daß 
das Feld tatsächlich als Datei mit dem Namen »LITERA¬ 
TUR« auf der Diskette (Kassette) gespeichert ist. 


Merken wir uns: 

1. der Direktbefehl RUN 500 setzt alle Variablen auf den 
Wert 0 zurück und beginnt das Programm ab Zeile 500 

2. der Direktbefehi GOTO 500 setzt das Programm eben¬ 
falls ab Zeile 500 fort, ohne aber die Variablen zu verän¬ 
dern 



Für ein vollständiges Datei-Programm fehlen dem Listing 
10 A noch zwei Dinge: 

- ein Menü zur freundlichen Bedienung 

- eine Möglichkeit, die Datei zu erweitern 

Das Menü soll uns helfen, das ganze Programm, das ja 
schon fast vollständig ist, zu strukturieren. 

Das Menü ist genauso aufgebaut wie das Beispiel in Lek¬ 
tion 24. 

5 REM-MENUE- 

7 : 

10 PRINT CHR$(147) 

15 PRINT SPC(90)"WAEHLEN SIE BITTE AUS" 

20 PRINT TAB(202)"(1) DATEN LADEN" 

25 PRINT SPC(82)"(2) DATENSAETZE SUCHEN" 

30 PRINT SPC(82)"(3) NEUEN TEXT EINGEBEN" 

35 PRINT SPC(82)"(4) DATEI ABSPEICHERN" 

40 PRINT SPC(82)"(5) ENDE" 

45 : 

50 PRINT 
55 INPUT A 

60 0N A G0SUB 100,200,400,500,600 
65 GOTO 10 

Wie gesagt, es ist dasselbe Menü wie vorher, nur der Text 
ist dem Datei-Programm angepaßt. Auch die Unterpro¬ 
gramm-Zeilennummern in Zeile 60 entsprechen dem Da¬ 
tei-Programm. 

Die einzelnen Unterprogramme, soweit sie bereits vor¬ 
handen sind, müssen mit RETURN abschließen. Das wol¬ 
len wir gleich nachholen: 

—► 190 RETURN 
340 RETURN 
580 RETURN 

Jetzt fehlen nur noch die Unterprogramme »NEUEN 
TEXT EINGEBEN« (ab Zeile 400) und »ENDE« (ab Zeile 
600) 

—► 400 REM-NEUEN TEXT EINGEBEN- 

410 : 

420 K=1 

430 PRINT K". KATEGORIE":INPUT A$(D,K) 
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440 IF K<6 THEN K=K+1:G0T0 430 

450 PRINT:PRINT"NOCH EINE EINGABE (J/N) ?" 

460 GET V$: IF V$="" THEN 460 
470 IF V$="J" THEN D=D+1:G0T0 410 
480 GOTO 500 

Dieses Unterprogramm ersetzt die Eingabe über DATA- 
Befehle. Die entscheidende Zeile ist Zeile 430. In ihr wird 
die Eingabe eines kompletten Datensatzes verlangt, wobei 
die sechs Kategorien numeriert einzeln aufgerufen wer¬ 
den. Diese Eingabe wird sofort einer Feldvariablen A$(D,K) 
zugewiesen. 

Das alles ist nur möglich, weil die Variable D, welche die 
Anzahl der Datensätze angibt, auch nach dem Suchpro¬ 
gramm wieder auf dem Endwert steht. Sie braucht bei der 
ersten Eingabe eines neuen Datensatzes nicht verändert 
werden, weil ihr höchster Wert nicht einen Datensatz, son¬ 
dern den Klammeraffen »@« gezählt hat. Der aber soll 
durch den neuen Datensatz überschrieben werden. 

Erst wenn in Zeile 470 die Frage nach einer weiteren Ein¬ 
gabe mit J(a) beantwortet wird, muß D um 1 erhöht werden. 
Wenn nach der Frage kein J(a) erfolgt, springt die Zeile 480 
auf das Unterprogramm »DATEI ABSPEICHERN«, damit 
die Eingabe nicht verlorengeht. 

Dieses Unterprogramm speichert die nunmehr vergrö¬ 
ßerte Datei natürlich wieder unter dem Namen »LITERA¬ 
TUR« ab. Eine Datei mit diesem Namen existiert aber 
schon auf der Diskette oder der Kassette. Deshalb muß bei 
Diskettenbetrieb in Zeile 510 die sogenannte »Save and Re- 
place«-Funktion verwendet werden: 

—► 510 OPEN 1,8,4, LITERATUR,S,W" 

Das Einfügen des Klammeraffen »@« gefolgt von einem 
Doppelpunkt bewirkt, daß die neue Datei die alte Datei des¬ 
selben Namens überschreibt. 

Bei Kassettenbetrieb wird die neue, vergrößerte Datei 
einfach neu geSAVEt. 

Und noch etwas fehlt: die Endmarkierung, die wir in Zeile 
150 abfragen und die durch die neue Eintragung über¬ 
schrieben worden ist. 

Sie muß am Ende des Unterprogramms, noch vor dem 
CLOSE-Befehi, per PRINT#-Befehl an die Datei ange¬ 
hängt werden: 

—► 560 PRINT #1,"@" 

Jetzt kommt nur noch das Unterprogramm »ENDE« ab 
Zeile 600 dazu, das aber denkbar einfach ist: 

600 REM-ENDE- 

610 END 

Das komplette Programm ist in Listing 10 wiedergegeben. 


O 1 Die Booleschen Funktionen 
O I AND, OR, NOT 


ln Lektion 8 bei den Prüfungen habe ich als Prüfbedingun¬ 
gen neben den Vergleichsfunktionen auch die sogenann¬ 
ten Booleschen Funktionen 

AND, OR und NOT 

erwähnt, ohne aber näher darauf einzugehen. Das will ich 
hier nachholen. Sie sind prinzipiell bei zwei Verfahren er¬ 
setzbar. 


2 REM++++++++ LITERATUR DATEI +++++++++ <196> 

3 : <235> 

4 : <236> 

5 REM -MENUE- <158> 

7 : <239> 

10 PRINT CHR$(147) < 0 39> 

15 PRINT SPC< 90)"WAEHLEN SIE BITTE AUS" <223> 

20 PRINT TAB<202)"(1> DATEI LADEN" <047> 

25 PRINT SPC(82) "(2) DATENSAETZE SUCHEN" <019> 

30 PRINT SPC(82) "(3) NEUEN TEXT EINGEBEN" <253> 
35 PRINT SPC(82) "(4) DATEI ABSPEICHERN" <003> 

40 PRINT SPC(82> "(5) ENDE" <021> 

45 : <021> 

50 PRINT <152> 

55 INPUT A <087> 

60 ON A GOSUB 100,200.400,500,600 <U0> 

65 GOTO 10 <243> 

90 : <066> 

100 REM-DATEI LADEN -.- <044> 

105 : <081> 

110 DIM AS <100,6) <230> 

115 OPEN 1,8,3."LITERATUR,S.R" <250> 

120 D=D+1 <003> 

130 FOR K=1 TO 6 <119> 

140 INPUTttl,A$< D,K> <064> 

150 IF A$(D,K)="@"THEN K=6:NEXT fOGOTO 180 <049> 
160 NEXT K <004> 

170 GOTO 120 <130> 

180 CLOSE 1 <191> 

190 RETURN <248> 

195 : <171> 

200 REM-DATENSAETZE SUCHEN- <093> 

205 : <181> 

210 INPUT"STICHWORT";S$ <148> 

220 FOR S=1 TO D <024> 

230 FOR K=1 TO 6 <219> 

240 IF AS(S,K)=S$ THEN FOR Z=1 TO 6:PRINT 

A$(S,Z):NEXT Z <162> 

250 NEXT K <094> 

260 PRINT <108> 

270 NEXT S <180> 


■280 ‘ D ’.INT"ENDE DER SUCHE” <165> 


290 PRINT <138> 

300 : <022> 

310 PRINT"NOCH EINMAL (J/N)?" <064> 

320 GET VS ; IF V$="" THEN 320 <182> 

330 IF V$="J" THEN 210 <054> 

340 RETURN <144> 

390 : <112> 

400 REM-NEUEN TEXT EINGEBEN- <029> 

405 : <127> 

420 K=1 <123> 

430 PRINT K".KATEGORIE":INPUT A$(D,K) <060> 

440 IF K<6 THEN K=K+l:GOTO 430 <246> 

445 : <167> 

450 PRINT:PRINT"NOCH EINE EINGABE (J/N) ?" <231> 
460 GET VS: IF V$="” THEN 460 <:099> 

470 IF' V$="J" THEN D=D+l=GOTO 420 <080> 

480 GOTO 500 <186> 

490 : <212> 

500 REM-DATEI ABSPEICHERN. <220> 

505 : <227> 

510 OPEN 1,8,4,LITERATUR,S,W" <217> 

520 FOR S=1 TO D <072> 

530 FOR K=1 TO 6 <011> 

540 PRINTS1,A$(S,K) <051> 

550 NEXT K:NEXT S <085> 

560 PRINTöl.<070: 
570 CLOSE 1 <073> 

580 RETURN <130> 

599 : <067> 

600 REM-ENDE- <045> 

605 : <073> 

610 END <104> 


© 64’er 

Listing 10. Die Literatur-Datei 


31.1. Verwendung als Prüfbedingung 

Die Wirkungsweise kann am besten an einem Beispiel 
demonstriert werden. Ich nehme dazu aus Lektion 8 den 
vierten Anwendungsfall, bei dem wir zwei IF-THEN-Befehle 
hintereinander gesetzt haben: 

350 IF X=4 THEN IF Y=0 THEN PRINT "JA" 


Diese Zeile kann auch mit AND geschrieben werden: 

350 IF X=4 AND Y=0 THEN PRINT "JA" 

Die Wirkungsweise von AND entspricht seiner Überset¬ 
zung "UND". Erst wenn beide Bedingungen (X=4 und 
Y=0) erfüllt sind, wird die Aktion hinter dem THEN- 
Befehlsteil ausgeführt. 
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Die OR-Funktion wirkt entgegengesetzt: 

350 IF X=4 0R Y=0 THEN PRINT "JA" 

Jetzt wird die Aktion nach THEN dann ausgeführt, wenn 
entweder die eine Bedingung (X=4) oder die andere (Y=0) 
oder beide erfüllt sind. Um das auszuprobieren, nehmen 
wir die gesamte verknüpfte Schleife, aus der die Zeile 350 
stammt. 

310 X=2:Y=1 
320 X=X+Y-2 
330 Y=Y-X+3 
340 PRINT X;Y 

350 IF X=4 AND Y=0 THEN PRINT "JA" 

360 GOTO 320 

Das Resultat ist wie gesagt das gleiche wie in Lektion 8. 
Die Schleife druckt das JA nach dem fünften Umlauf aus. 

Wenn Sie in Zeile 350 die OR-Funktion verwenden, wird 
das JA schon nach dem dritten Umlauf und dann noch ein¬ 
mal nach dem fünften Umlauf ausgedruckt. 

Ich will Ihnen noch ein Beispiel zeigen: 

350 IF (X AND Y)=4 THEN PRINT "JA" 

Diese Bedingung wird offensichtlich überhaupt nicht er¬ 
füllt, denn das JA erscheint nicht. Steht dagegen in der 
Klammer 

350 IF (X 0R Y)=4 THEN PRINT "JA" 

dann erscheint das JA, und zwar nach dem fünften Umlauf 
bei Kombination X=4, Y=0. 

Sie sehen also, daß X AND Y nicht gleichbedeutend ist 
mitX + Y. Das Resultat der beiden Bedingungen ist auf An¬ 
hieb nicht verständlich. Das liegt daran, daß diese beiden 
Funktionen die Variablenwerte im Dualsystem, und da 
auch noch »Bit-weise« verarbeiten, und zwar nach folgen¬ 
den Regeln: 

64€R 

_UND_ _ ODER _ 

0 AND 0 = 0 0 OR 0 = 0 

0 AND 1=0 0 OR 1 = 1 

1 AND 0 = 0 1 OR 0 = 1 

1 AND 1=1 1 OR 1 = 1 


Ich gehe hier davon aus, daß Sie das duale (oder auch bi¬ 
näre) Zahlensystem, das nur aus den Ziffern 0 und 1 aufge¬ 
baut ist, kennen. Ich habe nämlich hier keine Gelegenheit, 
darauf einzugehen. Wenn Sie es nicht kennen, dann bitte 
ich Sie, in einem entsprechenden Computerbuch nachzu¬ 
lesen. 

Nach obigen Rechenregeln ergibt die Aufgabe 
4 AND 3 ergibt 0 
4 OR 3 ergibt 7 

Im Detail gerechnet sieht das nämlich so aus: 

4:0000 0100 
3:0000 0011 


AND:0000 0000 (entspricht 0) 

OR:0000 0111 (entspricht 7) 

Jetzt können wir aus den Läufen der Zeilen 310 bis 350 
eine Ergebnistabelle machen, die wir auch verstehen kön¬ 
nen. 



X 

Y 

X = 4 AND Y = 0 

X=40AY=0 

(X ANOY)=4 

(X 0R Y)=4 

Anfang 

2 

1 

nein 

nein 

nein ( 0 ) 

nein (3) 

I.Lauf 

1 

3 

nein 

nein 

nein (1) 

nein (3) 

2.Lauf 

2 

4 

nein 

nein 

nein (0) 

nein (6) 

3.Lauf 

4 

3 

nein 

JA 

nein (0) 

nein (7) 

4.lauf 

5 

1 

nein 

nein 

nein ( 1 ) 

nein (5) 

S.Lauf 

4 

0 

JA 

JA 

nein (0) 

JA (4) 

6.Lauf 

2 

1 

nein 

nein 

nein (0) 

nein (3) 

und so weiter 


Ganz rechts in der Tabelle stehen die nach den obigen 
Regeln sich ergebenden Werte in Klammern. 

Die dritte Boolesche Funktion 
NOT 

wird nur sehr selten verwendet. Auch sie verarbeitet die 
Werte bit-weise im Dualsystem, und zwar vertauscht sie 
einfach jede 1 mit einer 0 und umgekehrt jede 0 mit einer 1. 
5: 0 0000 0101 
NOT 5: 1 1111 1010 

Diese resultierende Dualzahl 1111 1010 mit noch einer 
1 davor entspricht in der speziellen Rechenweise des C64 
der negativen Zahl -6. 

Auch auf dieses Phänomen - es entsteht durch die spe¬ 
zielle Darstellung der negativen Zahlen im Dualsystem - 
gehe ich hier nicht näher ein, sondern gebe nur die Formel 
für NOT an: 

NOT X bedeutet -(X + 1) 

Sie sehen, eine solche Funktion läßt sich nicht ohne vor¬ 
bereitendes Kopfrechnen anwenden. Bei der Formel für 
NOT ist die Klammer sehr wichtig, bei den beiden rechten 
Bedingungen in der letzten Tabelle auch: 

IF (X AND Y) = 4 ist nicht dasselbe wie 

IFX AND Y = 4 

Probieren Sie es mit der verschachtelten Schleife aus ! 

31.2. Die Klammer-Regeln 

Wir müssen eine weitere Regel beachten, allerdings 
nicht nur bei den Booleschen Funktionen, sondern auch 
bei den arithmetischen Funktionen. Anlaß zu dieser Regel 
bietet die Möglichkeit, in einer IF-Prüfung mehrere Funktio¬ 
nen abzufragen. Es ist, in Erweiterung zu dem was wir ja 
schon Slisprobiert haben, durchaus zulässig, die folgende 
Bedingung zu machen: 

IF A = 1 AND B = 2 OR C = 3 THEN... 

Nur muß man beachten, daß diese Zeile so wirkt, als wä¬ 
re sie mit den folgenden Klammern geschrieben: 

IF (A = 1 AND B = 2) OR C = 3 THEN... 

Es wird also zuerst die AND-Verknüpfung gebildet und 
erst dann die OR-Verknüpfung mit dem Resultat der Klam¬ 
mer. 

Dieselbe Zeile, wie folgt geschrieben, bringt ein anderes 
Resultat: 

IF A = 1 AND (B = 2 OR C = 3) THEN... 

Hier folgt die AND-Verknüpfung erst nach der OR- 
Verknüpfung. Die Klammern sind deswegen notwendig, 
weil die einzelnen Funktionen eine eigene »Hackordnung« 
haben, das heißt, sie haben verschiedene Prioritäten, die 
in der folgenden Tabelle dargestell sind. 

1. t Potenz 

2. Vorzeichenwechsel 

3. * / Multiplikation, Division (gleichberechtigt) 

4. + - Addition, Subtraktion (gleichberechtigt) 

5. < > = Vergleichsfunktionen (gleichberechtigt) 

6. AND 

7. NOT 

8. OR 

Um Schwierigkeiten zu vermeiden, ist es empfehlens¬ 
wert, im Zweifelsfall immer Klammern einzusetzen. 

31.3. Verwendung als Bit-Maske 

In Lektion 21 haben wir beim Stöbern im Speicher gese¬ 
hen, daß es Speicherzellen gibt, deren Inhalt die Arbeits¬ 
weise des Computers beeinflussen. Derartige Speicher¬ 
zellen nennen wir REGISTER. 

So schaltet zum Beispiel die Zahl 5 in das Register 53820 
gePOKEt die Farbe des Bildschirmspeichers auf Grün. In 
den meisten Registern des C64 übt ein einzelnes Bit oder 


104 


SONDERHEFT 40 




















C64 


BASIC-KURS 


Bitgruppen eine eigene Steuerfunktion aus. Als Beispiel 
führe ich das Register 53265 an: 


Bit-Nr. 

7 

6 

5 

4 

3 

2 

1 

0 

Stellenwert 

128 

64 

32 

16 

8 

4 

2 

1 


Bit 0-2: bestimmt den Wert der Zeilenverschiebung 

in Y-Richtung beim Smooth-Scrolling 
Bit 3: schaltet Zeilenzahl (0=24 Zeilen, 1=25 Zei¬ 

len) 

Bit 4: schaltet den Bildschirm (0=gelöscht) 

Bit 5: schaltet Hochauflösungsmodus 

(1=eingeschaltet) 

Bit 6: schaltet veränderten Hintergrund- 

Farbmodus (1=eingeschaltet) 

Bit 7: letztes Bit des Farbregisters 53266 

Diese einzelnen Funktionen des Registers 53265 wer¬ 
den Ihnen jetzt nicht allzuviel sagen. Wenn Sie mehr über 
dieses und noch andere Register wissen und lernen wol¬ 
len, dann verweise ich Sie auf den Aufsatz von Thomas Er¬ 
härt »Der leichte Umgang mit Sprites« im 64’er Sonderheft 
5/86 ab Seite 90. Ich will Ihnen aberzeigen, wie Sie mit Hilfe 
der Booleschen Funktionen einzelne Bits eines Registers 
setzen (auf 1) oder löschen (auf 0) können, ohne die ande¬ 
ren Bits zu beeinflussen. An sich ist es ganz einfach. Man 
nimmt nämlich nur den gegenwärtigen Inhalt des Registers 
-mit dem PEEK-Befehl-verknüpft ihn über die AND- oder 
OR-Funktion mit einer MASKE und POKEt das Ganze wie¬ 
der zurück in das Register. 

Was ist eine Maske und wie sieht sie aus? 

Bit setzen: 

Wenn wir zum Beispiel das 4. Bit des Registers - es hat 
den Stellenwert 16 - auf 1 setzen wollen, dann hilft uns die 
OR-Funktion als Maske. 



32 


Die arithmetischen 

und geometrischen Funktionen 


Diese Funktionen, hinter denen immer in Klammern ein so¬ 
genanntes Argument steht, führen mit dem Argument eine 
bestimmte Berechnung durch. 

Alle derartige Funktionen des C 64 finden Sie auch auf ei¬ 
nem Schultaschenrechner. Ich werde deshalb - Ihr Wissen 
voraussetzend - hier nur eine Übersicht geben. 

SIN (X) 

- berechnet den Sinus von X, wobei das Argument X im Bo¬ 
genmaß angegeben wird 

- Wira das Argument in Grad angegeben, so muß folgende 
Formel verwendet werden: 


PEEK (53265) 

X X X X 

X X X X 

Maske für 4. Bit 

000 1 

0000 

OR 

X X X 1 

X X X X 


An der Stelle, wo in der Maske eine 1 steht, wird laut Re¬ 
chenregel (siehe Abschnitt 31.1) durch OR das entspre¬ 
chende Bit auf 1 gesetzt, alle anderen Bits behalten ihren 
ursprünglichen Wert. 

Der Befehl dazu lautet: 

POKE 53265,PEEK (53265) OR 16 
Die Maske zum Setzen des 0. Bit und des 7. Bit schaut 
demnach so aus: 

POKE 53265,PEEK (53265) 0R (128+1) 


SIN (X*7i/180) 

7r erzeugen Sie durch die Tastenkombination. <SHIFT> 
und <t> 

Das folgende Beispiel druckt eine senkrechte Sinuskur¬ 
ve aus: 

10 PRINT CHR$(147) 

20 F0R X=0 T0 6 STEP 0.29 
30 A=INT(20+18#SIN(X),) 

40 PRINT TAB(A); 

50 NEXT X 
60 END 

COS (X) 

- berechnet den Kosinus von X, wobei das Argument X im 
Bogenmaß angegeben wird 

- wird das Argument in Grad angegeben, so muß folgende 
Formel verwendet werden: 


Bit löschen: 

Die Methode ist dieselbe, nur verwenden wir jetzt die 
AND-Funktion als Maske. 


PEEK (53265) 

X X X X 

X X X X 

Maske für 4. Bit 

1110 

1111 

AND 

x x x 0 

X X X X 


Überall dort, wo in der Maske eine 1 steht, bleibt laut Re¬ 
chenregel mit AND der ursprüngliche Wert erhalten, nur 
das Bit mit einer 0 in der Maske wird ebenfalls auf 0 »ge¬ 
löscht«. 

Zur Berechnung der Zahl für die Maske wird einfach der 
Stellenwert des zu löschenden Bit von 255 abgezogen. 

Um Bit 4 zu löschen, lautet der Befehl: 

POKE 53265,PEEK (53265) AND (255-16) 


COS (X* 71/180) 

Das folgende Beispiel druckt eine senkrechte Kosinus¬ 
kurve aus: 

110 PRINT CHR$(l47) 

120 FOR X=0 T0 6 STEP 0.29 
130 A=INT(20+18#C0S(X)) 

140 PRINT TAB(A); 

150 NEXT X 
160 END 
TAN (X) 

- berechnet den Tangens von X, wobei das Argument X im 
Bogenmaß angegeben wird 

- wird das Argument in Grad angegeben, so muß folgende 
Formel verwendet werden: 

TAN (X *ti/180) 

ATN (X) 

- berechnet den Arcustangens von X, wobei das Argument 
X im Bogenmaß angegeben wird 
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- wird das Argument in Grad angegeben, so muß folgende 
Formel verwendet werden: 

ATN (X* ti/180) 

ABS (X) 

- liefert den Absolutwert des Arguments X, das heißt, posi¬ 
tive Werte bleiben unverändert, negative Werte werden in 
positive Werte umgewandelt 

Im folgenden Beispiel wird geprüft, ob eine eingegebene 
Zahl positiv oder negativ ist durch Division der Zahl mit ih¬ 
rem absoluten Wert. 

210 INPUT X 

220 IF X/ABS(X) =-l THEN PRINT "NEGATIV" 

230 IF X/ABS(X) =1 THEN PRINT "POSITIV" 

240 END 

EXP (X) 

- liefert den »natürlichen Exponenten« der Zahl X, oder in 
Worten ausgedrückt: 

e hoch X 

(e=2.71828183.. und ist die Basis des natürlichen Loga¬ 
rithmus) 

- EXP ist die Umkehrfunktion von LOG. 

LOG (X) 

- liefert den »natürlichen Logarithmus« (mit Basis e) der 
Zahl X, die immer positiv sein muß 

- LOG ist die Umkehrfunktion von EXP. 

SGN (X) 

- liefert das Vorzeichen des Arguments X. 

- die Funktion kann nur die Werte 1, 0 oder -1 annehmen 
nach folgender Regel: 

bei X = 0 SGN(X)=0 
bei X < 0 SGN(X)=-1 
bei X > 0 SGN(X)=1 
SQR (X) 

- berechnet die Quadratwurzel der Zahl X. X muß immer 
positiv sein 

- SQR ist die Umkehrfunktion zum Potenzieren mit !2 
Im Grunde genommen gehören die Funktionen INT und 

RND auch in diese Gruppe. Wir haben sie aber bereits in 
Lektion 10 »Zufalls- und ganze Zahlen« im Detail behandelt. 


In unserem obigen Beispiel können wir eine Funktion de¬ 
finieren, der wir den Namen RRPI geben wollen: 

DEFFN RRPI(R) = R*R*,r 

In allen obigen Formeln können wir nun schreiben: 
F=FN RRPI(R) 

0=FN RRPI(R)*4 
V=FN RRPI(R)*h/4 

Der eigentliche Pfiff bei dieser selbstdefinierten Funktion 
liegt in der Eigenschaft der Variablen in der Klammer, in un¬ 
serem Fall ist es das R. Diese Variable ist nämlich »über¬ 
tragbar«. Was heißt das? 

Wenn wir unsere selbstdefinierte Funktion FN RRPI so 
verwenden: 

X=23+FN RRPI(R)-3 

dann lautet die Funktion: R*R*?r 

Schreiben wir aber: 

X=23+FN RRPI(K1)-3 

dann lautet die Funktion: Kl *K1 *7r 

Die Zuordnung geschieht innerhalb des DEF-Befehls. 
Leider ist es nicht möglich, mehr als eine derartige über¬ 
tragbare Variable zu verwenden. Schauen Sie sich das fol¬ 
gende Beispiel an: 

10 X=20 

20 DEF FN Z(R) = 10#INT(2*R+X) 

30 X=0.5 

40 PRINT FN Z(3-l) 

In Zeile 20 haben wir in der Formel zwei Variable, R und 
X. Aber nur R ist als Argument in der Funktion FN Z enthal¬ 
ten. Ihr weisen wir in Zeile 40 den Wert 3.1 zu. 

X ist die andere Variable, die vor der Definition der Zeile 
20 auf den Wert 20 gesetzt wird. Nach der Definition erhält 
sie aber den Wert 0.5 (Zeile 30). Und nur das ist der Wert, 
der in dö.' Berechnung der Zeile 40 verwendet wird: 
10*INT(2*3.1+0.5) = 10*INT(6.7) 

= 10*6 
= 60 

Als Einschränkung gilt übrigens, daß man mit DEF FN 
nur numerische Funktionen definieren darf. Strings haben 
da keinen Platz. 


Selbstdefinierte Funktionen 


Wem die bisher vorgestellten Funktionen, die uns Basic 
bietet, nicht genügen, dem erlaubt Basic, seine eigenen 
Funktionen zu definieren. 

Daß ein derartiger Wunsch durchaus Vorkommen kann, 
will ich Ihnen an einigen Beispielen zeigen. 

(1) Die Fläche F eines Kreises wird berechnet mit 

F=R*R*7t 

(2) Die Oberfläche O einer Kugel wird berechnet mit 

0=R*R*7r*4 

(3) Das Volumen eines Kegels mit kreisförmiger Grundflä¬ 
che wird berechnet mit 

V=R*R*7r*h/4 

Der Ausdruck R * R * Pi kommt also recht häufig vor. Wenn 
Sie jetzt die Aufgabe hätten, für 50 verschiedene Werte des 
Radius R - R(1) bis R(50) - die entsprechenden Flächen F(1) 
bis F(50) auszurechnen, dann müßten Sie den Ausdruck 
R*R*7 t recht oft verwenden. 

Hier lohnt es sich also, dafür eine eigene Funktion zu »er¬ 
finden« und ihr einen Namen zu geben, dem man dann wie 
einer Variablen die verschiedenen Werte zuordnen kann. 
Dazu gibt es in Basic den Befehl 
DEF FN 

(abgeleitet aus DEFine FunktioN). 


Neben den wenigen mathematischen Funktionen, die in 
Lektion 33 aufgeführt sind, gibt es viele andere, die so wich¬ 
tig sein können, daß Commodore im Handbuch für den C 64 
auf Seite 140 eine eigene Tabelle dafür angelegt hat. 

Diese Funktionen, die in Basic nicht vorhanden sind, eig¬ 
nen sich natürlich ideal für die Selbstdefinition: 
Arcussinus* 

DEF FN ARCSIN(X)=ATN(X/SQR(1-XI2)) 

Sinus Hyperbolikus: 

DEF FN SINH(X)=(EXP(X)-EXP(-X))/2 
Interessant ist übrigens, daß es uns durchaus erlaubt ist, 
eine selbstdefinierte Funktion als Variable (Argument) ei¬ 
ner zweiten selbstdefinierten Funktion zu verwenden. 


Basic-Befehl Nr. 41 DEF FN 

- der Befehl wird so geschrieben: 

DEF FN Name(Variable) = Formel 

- mit diesem Befehl können eigene komplizierte numeri¬ 
sche Funktionen mit einem kurzen Namen definiert 
werden 

- der Name der Funktion beginnt immer mit FN 

- der jeweilige Wert der in Klammern stehenden numeri¬ 
schen Variablen wird überall in der Formel eingesetzt, 
wo die Variable steht 

- die Funktion wird nach der Definition aufgerufen mit: 

Basic-Befehl FN Name () 

- DEF FN darf nicht im Direktmodus verwendet werden, 
String-Variable sind nicht zugelassen 
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Als Beispiel wähle ich die Formel für das Volumen einer 
Kugel, deren Ergebnisse ich mit einer anderen Funktion 
auf zwei Dezimalstellen aufrunde. 

Funktion für das Kugelvolumen 

10 DEF FNV(R)=4*ir*Rt3/3 
Funktion zum Aufrunden 

20 DEF FNA(X)=INT( (X-+0.005)#100)/100 
Der Rest des Programms lautet: 

30 INPUT "RADIUS";R 
40 PRINT FNV(R); 

50 PRINT FNA(FNV(R)) 

60 GOTO 30 

Mit diesem kleinen Programm wird in Zeile 40 zuerst das 
dem eingegebenen Radius entsprechende Volumen der 
Kugel ausgedruckt und mit dem Semikolon danebenge¬ 
setzt, danach durch Zeile 50 der aufgerundete Wert. Dabei 
ist einfach die Volumenfunktion FNV an die Stelle der Varia¬ 
ble X gesetzt worden. 



Beim Programmieren gilt ein beinahe ehernes Gesetz: 
Kein Programm läuft auf Anhieb! 

Wie oft haben Sie schon geflucht und gesucht? 

Es gibt aber einige Tips und Tricks, wie man sich das Su¬ 
chen der Fehler erleichtern kann. 

Fehlermeldungen 

Die häufigsten Fehler treten durch Tippfehler beim Ein¬ 
geben eines Programms auf. In vielen Fällen reagiert das 
Ubersetzungssystem des Computers mit einer Fehlermel¬ 
dung, die aber oft nicht verständlich ist. Die Erklärungen 
der Fehlermeldungen in den Commodore-Handbüchern 
sind oft recht dürftig. Einige Erläuterungen finden Sie auch 
auf Seite 129. 

Programmunterbrechung 

Wenn ein Programm etwas anderes tut, als Sie wollen, ist 
noch lange nicht klar, wo der Fehler liegt. Um das herauszu¬ 
finden, ist es empfehlenswert, nur Teile des Programms 
laufenzulassen. Das geht aber meistens nur vom Anfang 
an - also halten Sie am besten das Programm an ganz be¬ 
stimmten Stellen an. Wenn es bis dahin nichts falsch ge¬ 
macht hat, dann haben Sie den Bereich, in dem der Fehler 
liegen muß, schon beachtlich eingeschränkt. Zum Anhal¬ 
ten eines Programms gibt es bekanntlich den Befehl END, 


durch den das Programm abbricht und der Computer sich 
mit READY meldet. 

Es gibt aber noch einen zweiten derartigen Befehl: 

STOP 

der wie END auch das Programm abbricht, aber mit der 
Meldung 

BREAK IN xxx 

die Zeile xxx angibt, wo der STOP-Befehl steht. 

Durch diesen Stopp werden die Werte der Variablen nicht 
verändert und sie können mit einem Direktbefehl ausge¬ 
druckt und überprüft werden. Ich komme gleich darauf 
noch zurück. 

Wichtig ist es, daß das gestoppte Programm in der nach 
dem STOP kommenden Zeile fortgesetzt werden kann, mit 
GOTO yyy, wenn man die Zeilennummer yyy kennt, oder 
aber mit dem neuen Basic-Befehl 

CONT 

was aus dem englischen Wort Continue abgeleitet ist. Vor¬ 
aussetzung für das Funktionieren dieses Befehls ist aller¬ 
dings, daß vorher keine Änderungen im Programm vorge¬ 
nommen worden sind. 

Wenn Sie aber nach dem STOP geLISTet und einen Feh¬ 
ler korrigiert haben, müssen Sie mit RUN wieder von vorn 
anfangen. 

Im Extremfall können Sie in jede Programmzeile ein 
STOP einbauen und mit CONT zeilenweise das Programm 
durchgehen, bis Sie zu der kritischen Stelle kommen. 

Am Ende, wenn alles läuft, müssen Sie natürlich alle 
STOPs wieder entfernen. 

Variable ausdrucken 

Eir.: Fehleranalyse ist oft dadurch möglich, daß man 
sieht, welche Werte die verschiedenen Variablen im Lauf 
eines Programms annehmen. 

Einige zusätzliche PRINT-Befehle, zum Beispiel inner¬ 
halb einer Schleife, verschandeln zwar den gewünschten 
Ausdruck auf dem Bildschirm, geben aber Auskunft und 
Einsicht über den Ablauf und was da so passiert. 

Wie oben schon erwähnt, kann man nach einem STOP 
und ohne ein späteres CONT zu stören, mit PRINT im Di¬ 
rektmodus (also ohne Zeilennummern) den aktuellen Wert 
einer oder mehrerer Variablen ausdrucken. 

Eine etwas seltenere Art der Variablenbehandlung bietet 
uns ein weiterer Basic-Befehl 

CLR 

der von CLEAR, also Löschen abgeleitet ist. 

Vorsicht! der Befehl CLR hat nichts mit der CLR-Taste ge¬ 
mein. 

CLR bezieht sich in seiner »Lösch«-Funktion nur auf den 
Speicher, während die CLR-Taste den Bildschirm löscht. 
Mit dem CLR-Befehl werden alle numerischen Variablen¬ 
werte auf 0 gesetzt, allen Stringvariablen wird ein »Null¬ 
string« zugewiesen und alle Dimensionen von Feldern wer¬ 
den gelöscht. Wenn DATA-Zeilen vorhanden sind, die ganz 
oder teilweise gelesen wurden, wird die Funktion von RE- 
STORE ausgeführt. Schließlich werden im RAM-Speicher 
des Betriebssystems alle vom Programm eingestellten 
Werte auf ihren Zustand nach dem Einschalten des Com¬ 
puters zurückgesetzt. 

Nurzwei Dinge bleiben unberührt- und das ist sehr wich¬ 
tig: das im Speicher befindliche Programm und Datei- 
Befehle (OPEN). 

Die Funktion von CLR wird übrigens auch bei jedem 
RUN-, LOAD- und NEW-Befehl ausgeführt. 

Der CLR-Befehl kann sehr nützlich sein, um sozusagen 
die Ausgangslage eines Programms innerhalb eines Pro¬ 
gramm-Ablaufes wiederherzustellen. 
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Basic-Befehl Nr. 42 STOP 

- dieser Befehl bricht ein Programm ab 

- im Unterschied zum END-Befehl meldet sich der Compu¬ 
ter nach dem STOP-Befehl mit der Meldung BREAK IN 
xxx, wobei mit xxx die Zeilennummer angegeben wird, in 
der das Programm abgebrochen worden ist 

Basic-Befehl Nr. 43 CONT 

- mit diesem Direktbefehl kann man ein gestopptes Pro¬ 
gramm, an dem nach dem STOP keine Veränderungen 
vorgenommen sein dürfen, ab der STOP-Stelle weiterlau¬ 
fen lassen. Die entsprechende Zeilennummer braucht 
nicht angegeben zu werden. Alle Werte der Variablen 
bleiben erhalten 

Basic-Befehl Nr. 44 CLR 

- dieser Befehl löscht die Werte aller Variablen und Dimen¬ 
sionen von Feldern. Numerische Variable erhalten den 
Wert 0, String-Variable einen Nullstring. Der Zeiger von 
READ-DATA-Befehlen wird auf die erste DATA-Zeile ge¬ 
setzt. 

- der Zustand von eröffneten Dateien und ein im Speicher 
stehendes Programm bleiben unberührt. 


Ein anderes Beispiel bietet die Speicherzelle 653. Sie 
enthält eine Zahl, die angibt, welche der Steuerlasten 
SHIFT, CTRL oder CBM gedrückt worden ist, und zwar: 
SHIFT = 1 
CBM = 2 
CTRL = 4 

Auch diese Tasten können wir mit WAIT abfragen: 

200 PRINT "A" 

210 WAIT 653,4 
230 GOTO 200 

Mit diesen drei Zeilen wird zuerst ein A ausgedruckt, 
dann wartet Zeile 210 auf die CTRL-Taste und druckt, solan¬ 
ge sie gedrückt ist, lauter Aauf den Bildschirm. Um zu errei¬ 
chen, daß pro Tastendruck nur ein einziges A ausgedruckt 
wird, fügen wir Zeile 220 ein: 

220 WAIT 653,4,4 

Was da passiert, bedarf einer Erklärung, die in der Be¬ 
fehlsbeschreibung (rechts) steht. 


35 


Seltene Bask-Befehle 


ln dieser letzten Lektion will ich die Befehle 
WAIT, SYS, USR 

und die reservierte Status-Variable 

ST 

behandeln. 

Diese vier Kandidaten sind nicht umsonst selten anzu¬ 
treffen, verlangen doch alle außer WAIT ein fortgeschritte¬ 
nes Wissen der Programmierung. 

Ich bin mir klar darüber, daß für einen derartigen Einfüh¬ 
rungskurs in Basic SYS, USR und ST zu schwer sind. Ich 
bringe aber dieses Kapitel der Vollständigkeit halber und 
entschuldige mich gleich, daß ich es nicht für Einsteiger 
schreiben kann. 

53.1. Der WAIT-Befehl 

Normalerweise, wenn in einem Programm gewartet wer¬ 
den soll, verwenden wir eine GET-Schleife vom Typ: 

10 GET A$:IF A$= w " THEN 10 

In Basic gibt es aber einen - viel zu selten verwendeten 
- Befehl, der die Programmausführung so lange unter¬ 
bricht, bis in einer angegebenen Adresse des Speichers et¬ 
was verändert wird. Er lautet: 

WAIT 

Hinter dem WAIT-Befehl, der übersetzt Warten heißt, 
muß die Adresse einer beliebigen Speicherzelle stehen, in 
der etwas passieren soll. Zusätzlich folgen auf die Adresse, 
durch Komma getrennt, eine oder zwei numerische Varia¬ 
ble. Was das alles soll, zeigt am besten ein Beispiel. 

In Lektion 9 »Eingabe« habe ich den Tastaturpuffer be¬ 
schrieben, in den Zahlen und Zeichen abgespeichert wer¬ 
den, wenn ihre Tasten während des Programmlaufs ge¬ 
drückt werden. 

In der Speicherzelle 198 nun steht immer die aktuelle 
Zahl der im Tastaturpuffer gespeicherten Zeichen. 

100 P0KE 198,0 

Mit dieser Zeile wird »künstlich« der Puffer geleert. 

110 WAIT 198,1 

Dieser Befehl unterbricht das Programm so lange, bis 
irgendeine Taste gedrückt worden ist, wodurch natürlich 
in Speicherzelle 198 eine 1 steht. 



Um diese Berechnung zu verstehen, muß ich zuerst die 
Boole’sche Funktion XOR erklären, die leider im C64 nicht 
für den generellen Gebrauch eingebaut ist. 

Ähnlich wie das in Lektion 31 beschriebene OR gilt für 
das XOR folgende Verknüpfungsregel: 

0 XOR 0 = 0 
0 XOR 1 = 1 
1 XOR 0 = 1 
1 XOR 1 = 0 

Betrachten Sie bitte noch mal die Zeilen 200 bis 230. 

210 WAIT 653,4 


Inhalt 653 

= 0 

0000 

N2 

= 0 

0000 

XOR 





0000 

NI 

= 0 

0000 

AND 



Ergebnis 


0000 

das heißt, das Programm wartet. 


Wenn die CTRL-Taste gedrückt wird, steht in 653 eine 4. 
Die obige Rechnung ergibt 4 und das Programm läuft wei¬ 
ter. 

Dieselbe Rechnung für Zeile 220 sieht so aus: 

220 Wait 653,4,4 


Inhalt 653 
N2 
XOR 

NI 
AND 
Ergebnis 


= 4 
= 4 


= 4 


0100 

0100 


0000 

0100 


0000 


das heißt, das Programm wartet wieder. 
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Basic-Befehl Nr. 45 WAIT 

- Er wird so geschrieben: 

WAIT Adresse,NI,N2 

- Er unterbricht ein Programm so lange, bis der Inhalt der 
mit der Adresse angegebenen Speicherzelle von Null 
verschieden ist. 

- Die Veränderung des Inhalts der adressierten Speicher¬ 
zelle wird durch die beiden numerischen Variablen NI 
und N2 erzeugt, und zwar dadurch, daß zuerst der Inhalt 
der Speicherzelle mit N2 über ein EXOR verknüpft wird. 
Dieses Ergebnis wird dann mit NI über ein AND ver¬ 
knüpft. 

Ist das Resultat ungleich 0, bleibt das Programm unter¬ 
brochen. 

Ist das Resultat gleich 0, fährt das Programm mit dem 
nächsten Befehl fort. 

- N2 kann auch weggelassen werden. Dann wird es auto¬ 
matisch auf 0 gesetzt. 


35.2. Der SYS-Befehl 

Sowohl eigene Programme, die in Maschinensprache 
geschrieben sind und daher im RAM-Speicher stehen, als 
auch Programmteile (Routinen) des Betriebssystems und 
des Basic-Übersetzers, die im ROM-Speicher stehen, kön¬ 
nen von einem Basic-Programm aus gestartet (aufgerufen) 
werden. Dieser Befehl entspricht damit dem RUN-Befehl 
für Basic-Programme. Er wird so geschrieben: 

SYS Adresse 

Wichtig ist, daß am Ende der mit SYS gestarteten 
Maschinensprache-Routine ein RTS-Befehl steht, durch 
den die Programmkontrolle wieder an das Basic-Pro¬ 
gramm zurückgegeben wird. Ein Beispiel dafür ist 
SYS 58260 

der Sprung auf den Kaltstart, der den Computer in die Aus¬ 
gangslage zurücksetzt. 

Die meisten dieser Routinen benötigen jedoch verschie¬ 
dene Angaben - man nennt sie auch Parameter - die vor 
der Ausführung des SYS-Befehls richtig eingestellt sein 
müssen. 

Die LOAD-Routine zum Beispiel, die ab Speicherzelle 
62622, beginnt, können wir mit 
SYS 62622 



nicht starten. Es fehlen die Angaben über Geräte-Nummer 
(8 für Floppy, 0 für Band), File-Namen, sowie Anfangs- und 
Endadresse. Diese Parameter werden normalerweise nach 
dem Befehl LOAD von der Routine des Interpreters, die den 
LOAD-Befehl übersetzt, eingegeben. Wir geben ja nicht 
einfach LOAD ein, wenn wir ein Programm mit dem Namen 
»TEST« auf Diskette speichern wollen, sondern wir schrei¬ 
ben 

LOAD "TEST",8 

Auch wenn wir nur LOAD eintippen, werden vom Über¬ 
setzer Parameter gesetzt, nämlich »namenlos« und 0 für 
Bandgerät. Ich hoffejhnen ist geläufig, daß bei Weglassen 
aller Angaben der Übersetzer immer Kassettenoperatio¬ 
nen durchführt. 

Natürlich können wir uns das anschauen: Die Routine 
des Übersetzers für den BASIC-Befehl LOAD beginnt an 
Speicherzelle 57704. 

Mit SYS 57704 springen wir dorthin - und in der Tat, wir 
erhalten auf dem Bildschirm PRESS PLAY ON TAPE. Aber 
ein Programm auf diese Weise auf die Floppy zu LOADen, 
gelingt uns nicht, es sei denn, wir können die fehlenden Pa¬ 
rameter von Hand eingeben. 

Genau das aber können wir, weil der SYS-Befehl sich die¬ 
se Parameter aus den Speicherzellen 780 bis 783 holt und 
in die vier Register des Mikroprozessors schreibt. 

780 ist die Adresse des Akkumulators 

781 ist die Adresse des X-Registers 

782 ist die Adresse des Y-Registers 

783 ist die Adresse des P-Registers. 

Die Behandlung von A, X und Y ist unkompliziert, wie wir 
gleich sehen werden. 

Das P-Register ist nicht so einfach zu verwenden, da es 
nicht ahlenwerte, sondern Flags (Flagge oder Bitmuster) 
enthält. Im einzelnen bedeuten im P-Register: 


BIT Nr. 

WERT 

FLAGGE 

ABKÜRZUNG 

0 

1 

Übertrag 

Cfarry) 

1 

2 

Null 

Z(ero) 

2 

4 

Unterbrechung 

l(nterrupt) 

3 

8 

Dezimal 

D 

4 

16 

Abbruch 

B(reak) 

5 

32 

nicht benutzt 


6 

64 

Überlauf 

V 

7 

128 

Vorzeichen 

N(egativ) 


Um eine der Flags des P-Registers zu löschen, empfiehlt 
es sich, das ganze Register mit POKE 783,0 zu löschen. 
Umgekehrt muß man beim Setzen der Bits sehr aufpassen 
wegen der Unterbrechungsflagge I. Eine 1 in I entspricht 
dem Maschinen-Befehl SEI, der alle Interrupts ausschaltet, 
auch die der Tastatur-Abfrage, was natürlich sehr störend 
sein kann! Um alle Flags außer der Unterbrechungsflags I 
zu setzen, muß POKE 783,247 eingegeben werden. 

So, jetzt aber wird es Zeit für ein Beispiel, wie vor dem 
SYS-Befehl Parameter eingegeben werden können. In der 
Literatur wird immer das Beispiel gewählt, den Cursor auf 
eine bestimmte Position zu setzen, beziehungsweise seine 
Position abzufragen. Dazu gibt es eine Routine, die bei bei¬ 
den Rechnern ab Speicherzelle 65520 beginnt. 

Sie nimmt die Zahl, die im X-Register steht, und verwen¬ 
det sie als Zeilennummer; die Zahl des Y-Registers nimmt 
sie als Spaltennummer, setzt dann den Cursor an diese 
Stelle und bringt die beiden Werte in die Speicherzellen 
209/210 und 211. 

Unser Beispiel hat die Aufgabe, den Cursor in die 
4. Spalte der 7. Zeile zu setzen, dort das Dollar-Zeichen 
hinzuschreiben und es rot zu färben. 
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5 PRINT CHR$(l47) 

10 POKE 783,0 
20 POKE 781,6 
30 POKE 782,3 
40 SYS 65520 

Nach Löschen des Bildschirms werden zuerst alle Flags 
des P-Registers gelöscht (Zeile 5). Dann kommt die Zeilen¬ 
nummer in das X-Register (Zeile 10) und die Spaltennum¬ 
mer in das Y-Register (Zeile 30). Nach dem Eingeben die¬ 
ser Parameter können wir mit SYS auf die Routine sprin¬ 
gen, die ab 65520 beginnt. 

50 ZEILE=PEEK(209)+256#PEEK(210) 

60 ADRESSE = ZEILE + PEEK(21l) 

70 POKE ADRESSE,36 

In den Speicherzellen 209/210 können wir jetzt (zur 
Übung) die Zeilennummer ablesen. Die Adresse der Cur¬ 
sorposition im Bildschirmspeicher erhalten wir durch die 
Addition der Zeilen nummer mit dem Inhalt der Speicherzel¬ 
le 211. Dorthin POKEn wir den Bildschirmcode des Dollar¬ 
zeichens, nämlich 36 (Zeile 70). 

80 SYS 59940 

90 FARBE=PEEK(243)+256*PEEK(244) 

100 POKE FARBE+PEEK(211),2 

Für das Färben des Dollarzeichens verwenden wir eine 
weitere Routine des Betriebssystems, die ab 59940 be¬ 
ginnt. Sie ermittelt die Zeilenposition des Cursors im Farb- 
speicher und bringt diesen Wert in die Speicherzellen 
243/244, wo wir ihn abfragen können (Zeile 90). Die Adres¬ 
se der Cursorposition im Farbspeicher setzt sich aus die¬ 
sem Wert plus der Spaltennummer zusammen, die wir wie¬ 
der der Speicherzelle 211 entnehmen. Auf diesen Platz PO¬ 
KEn wir den Farbcode 2 für Rot (Zeile 100). 

So leicht ist das, wenn man die Routinen und die Aufga¬ 
ben der Speicherzellen kennt. 


Basic-Befehl Nr. 46 SYS 

- der SYS-Befehl startet ein Maschinenprogramm, das an 
der hinter dem SYS-Befehl stehenden Adresse beginnt. 

- werden mit dem SYS-Befehl Routinen des Betriebssy¬ 
stems aufgerufen, die aber einige Parameter bei der Aus¬ 
führung brauchen, können diese über die Speicherzellen 
780 bis 783 vor dem SYS-Befehl eingegeben werden. 


35.3. Der USR-Befehl 

Ohne Zweifel gehört auch dieser Befehl zu den Mauer¬ 
blümchen von Basic, obwohl sein Name - eine Abkürzung 
von User (Anwender) - eigentlich genügend Anreiz bieten 
müßte. 

USR hat im Grunde genommen dieselbe Funktion wie 
SYS. Er springt nämlich aus einem Basic-Programm direkt 
in ein Maschinen-Programm, arbeitet dieses so lange ab, 
bis er den Befehl RTS findet. RTS entspricht dem Basic- 
Befehl RETURN und springt in das Basic-Programm zu¬ 
rück. 

Bei SYS steht die Sprungadresse gleich hinter dem Be¬ 
fehl. 

Bei USR muß die Sprungadresse zuerst in die Speicher¬ 
zellen 785/786 gePOKEt werden. 

Beispiel: Sprung auf 56524 
mit SYS: SYS 56524 

mit USR: POKE 785,204 (204+256*220=56524) 

POKE 786,220 
X=USR(Y) 

Kein Wunder, daß der Befehl USR sehr selten benutzt 
wird - ist er doch durch das POKEn der Sprungadresse in 
Low-/High-Byte-Darstellung aufgebläht. 


Das ist aber nicht unnütz, weil USR mehr Fähigkeiten hat 
als SYS. Im Hinblick auf die im Abschnitt 35.2. »Der SYS- 
Befehl« aufgezeigten Möglichkeiten des SYS-Befehls sollte 
ich besser sagen: 

USR hat andere Fähigkeiten als SYS. 

USR ist eine Mischung von SYS und FN. Letzterer ist der 
Basic-Befehl zur Definition selbsterfundener Funktionen 
(Lektion 33). 

Bei USR allerdings wird die Funktion als Unterprogramm 
in Maschinensprache geschrieben, auf die dann wie ge¬ 
sagt der USR-Befehl zur Ausführung springt. Der Pfiff da¬ 
bei ist aber, daß Zahlenwerte in das Maschinenprogramm 
mitgenommen beziehungsweise Resultate aus ihm her¬ 
ausgeholt werden können. 

Wie läuft das ab: Das Argument Y, das in der Klammer 
hinter dem Befehl steht, wird zuerst in den Gleitkomma- 
Akkumulator Nr. 1 (FAC 1) in den Speicherzellen 97 bis 102 
gebracht. Als Gleitkommazahl wird es vom angesprunge¬ 
nen Maschinenprogramm weiterverarbeitet. Das Resultat 
kommt dann wieder in den FAC 1 und steht als Wert von X 
zur Verfügung. 

Das Argument Y kann übrigens auch ein komplexer Aus¬ 
druck sein, zum Beispiel: 
X=USR(PEEK(A)+256*PEEK(B)) 

Ich möchte das an einem kleinen Beispiel demonstrie¬ 
ren. 

Statt allerdings ein Maschinenprogramm selbst zu 
schreiben, verwende beziehungsweise springe ich auf ei¬ 
ne Routine des Betriebssystems, die den Inhalt des FAC 1 
für mathematische Operationen verwendet. 

Als geeignete mathematische Operation habe ich die 
Routine für die Funktion INT gewählt, die im C64 ab der 
Adresc: 48332 beginnt. 

Zuerst definieren wir einen Wert für die Variable Y, der in 
die INT-Routine gebracht werden soll. 

10 Y= 14.35 

Dann bestimmen wir die Sprungadresse für den USR- 
Befehl. Dazu teilen wir die Adresse 48332 auf in ein Low- 
Byte = 204 und ein High-Byte = 188. Diese POKEn wir 
nach 785/786 

20 POKE 785,204 
30 POKE 786,188 

Jetzt folgt nur noch der USR-Befehl selbst und das Aus¬ 
drucken des Resultats. 

40 X=USR(Y) 

50 PRINT X 

Nach RUN erhalten wir das Resultat 14, wie das Gesetz 
für INT es befiehlt.. 

Sie können zur Übung statt INT auch COS verwenden, 
indem Sie auf die Adresse 57938 springen. Der Vergleich 
mit dem Befehl COS Y muß dasselbe Ergebnis bringen. 

Wer hat übrigens gemerkt, daß wir überhaupt nichts mit 
der Speicherzelle 784 gemacht haben, obwohl sie doch an¬ 
geblich am USR-Befehl beteiligt ist? Sie ist es wirklich, 
doch ohne unser Zutun. In diese Adresse wird beim Ein¬ 
schalten des Computers die Zahl 76 ($4C) geschrieben. 
Das ist der Code für den Maschinenbefehl »JMP« (JUMP), 
der dieselbe Wirkung hat wie GOSUB. 

Bei Ausführung von USR springt nämlich die entspre¬ 
chende Routine zuerst auf die Speicherzelle 784, findet 
dort den Sprungbefehl und in den beiden nachfolgenden 
Speicherzellen 785 und 786 die Sprungadresse - und führt 
so den geplanten Sprung aus. 

Ich finde, USR ist es wert, in Ihre Überlegungen mit ein¬ 
bezogen zu werden, besonders wenn Sie innerhalb Ihrer 
BASIC-Programme extrem schnelle Unterprogramme in 
Maschinensprache eingebaut haben. Diese sind mit USR 
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Basic-Befehl Nr. 47 USR(X) 

- dieser Befehl ruft von einem Basic-Programm aus ein 
Maschinensprache-Unterprogramm auf 

- dabei kann ein numerischer Ausdruck als Argument di¬ 
rekt mitgegeben werden 

ganz elegant aufrufbar. Ich denke da zum Beispiel an eine 
Abfrage der Joysticks. 

35.4. Die Status-Variable ST 
Neben den Befehlen (wie PRINT) und den Funktionen 
(wie COS) hat Basic auch noch drei fest definierte Variable, 

nämhch TI, TIS und ST 

TI und TIS haben wir schon in Lektion 23 »Die Uhr des 
Computers« behandelt. 

Von den dreien ist ST wohl am seltensten anzutreffen, 
Grund genug, hier ein wenig darüber zu berichten. 

Die Variable ST gibt den Status nach der letzten Ein- be¬ 
ziehungsweise Ausgabeoperation an, beschränkt aller¬ 
dings nur auf Operationen mit der Datasette und dem an ei¬ 
nem gemeinsamen Ausgang angeschlossenen Disketten¬ 
laufwerk und Drucker. 

ST enthält dabei den Inhalt der Speicherzelle 144. Jedes 
Bit dieses Registers hat eine eigene Bedeutung. 

Bit 2 (Wert 4): kurzer Block 
Bit 3 (Wert 8): langer Block 
Bit 4 (Wert 16): Lesefehler (nicht korrigierbar) 

Bit 5 (Wert 32): Prüfsummenfehier 
Bit 6 (Wert 64): File-Ende 
Bit 7 (Wert 128): Band-Ende 

Diskette/Drucker: 

Bit 0 (Wert 1): Fehler beim Schreiben 

Bit 1 (Wert 2): Fehler beim Lesen 

Bit 6 (Wert 64): Daten-Ende 

Bit 7 (Wert 128): "Device Not Present "-Fehler 

Alle nicht aufgeführten Bits sind nicht benützt. 

Wichtig ist noch zu erwähnen, daß nicht nur die in der Ta¬ 
belle gezeigten Zahlen für ST auftreten, sondern auch 
Kombinationen davon. So ergibt zum Beispiel ein zu kurzer 
Block (4) und ein gleichzeitig aufgetretener Prüfsummen¬ 
fehler (32) einen Wert von 36. 


Jetzt geht es los. Mit RUN starten wir den ersten Teil des 
Programms. Nach dem Schreibvorgang und der READY- 
Meldung (nach Zeile 40) müssen Sie das Band zurück¬ 
spulen und mit GOTO 50 ab Zeile 50 weiterfahren. Jetzt 
wird die Datei gelesen. 

Wir erhalten untereinander die sechs Buchstaben von 
Zeile 20, daneben für ST lauter 0 bis zum Ende, dann aller¬ 
dings erscheint eine 64. Das ist der in der Tabelle angege¬ 
bene Wert von ST für »File-Ende«. 

Da die FOR-NEXT-Schleife zu lang ist, schießen wir mit 
dem Lesen über das File-Ende hinaus. Normalerweise ken¬ 
nen wir natürlich die Länge einer Datei nicht. Deshalb ist es 
besser, mit GOTO zurückzuspringen und das File-Ende ab¬ 
zufragen. 

Löschen Sie bitte Zeile 60 und 90 und fügen Sie als Rück¬ 
sprung und Prüfung ein: 

85 IF ST=64 THEN 100 
90 GOTO 70 

Statt nach ST können wir natürlich genausogut nach 
PEEK(144) fragen. 

.Ein erneutes GOTO 50 bringt das erwünschte Resultat. 

Um den vorhin schon erwähnten »kurzen Block« zu se¬ 
hen, müssen wir einen entsprechenden Fehler künstlich er¬ 
zeugen. 

Löschen Sie bitte den ersten Teil des Programms bis ein¬ 
schließlich Zeile 40. Wir behalten also nur den Leseteil ab 
Zeile 50. Dann laden wir dieses Programm (Band vorher am 
besten wieder zurückspulen) mit SAVE »DATEI« nicht als 
Datei, sondern als ganz gewöhnliches Programm. Wenn es 
geladen ist, bitte das Band wieder zurückspulen. 

Mit RUN starten wir jetzt das Lese-Programm, welches 
eine Datei sucht, aber nur ein Programm findet, allerdings 


Kassettenoperationen 

Zuerst testen wir mit einem Datei-Programm auf »FILE¬ 
ENDE«. Geben Sie bitte folgendes Programm ein: 

10 OPEN 1,1,1,"DATEI" 

20 PRINT # 1,"QWERTY * 

30 CL0SE 1 
40 END 

Zur Erinnerung: Nach dem OPEN-Befehl folgt zuerst die 
Nummer der Datei (ich nehme hier 1), dann die Gerätenum¬ 
mer (1 = Datasette) und schließlich die Sekundäradresse 
(1 = Schreiben). 

Jetzt kommt der Lesevorgang: 

50 OPEN 2,1,0,"DATEI" 

60 F0R K=1 T0 10 
70 GET#2,A$ 

80 PRINT A$;ST 
90 NEXT K 
100 CL0SE 2 

In Zeile 50 eröffnen wir wieder eine Datei (diesmal Num¬ 
mer 2) für die Datasette, jetzt aber zum Lesen (Sekundär¬ 
adresse = 0). Die Schleife der Zeilen 60 und 90 schreiben 
uns lOmal ein Zeichen (A$) und den Wert von ST auf den 
Bildschirm. Zeile 100 schließt die Datei. 


mit richtigen Namen. Natürlich findet es einen Fehler 
und wir erhalten als Ausdruck: 

36 oder manchmal auch 4 
64 64 

Die Zahl 36 entsteht aus 32+4, das bedeutet Prüfsum¬ 
menfehler + Block zu kurz. Danach folgt wie vorher das 
File-Ende. 

Die normale Blocklänge entspricht der Länge des Band¬ 
puffers, in den die Datasette einspeichert. Er ist 191 Byte 
lang. In unserem Fall war offenbar der Block nicht ganz voll. 

Der Prüfsummenfehler tritt dann auf, wenn eine der 
Überprüfungen von Kassettenoperationen einen Fehler 
gefunden hat. Der Blockfehler, auch der des zu langen 
Blocks, interessiert wohl weniger. Aber ein durch die Prü¬ 
fungen gefundener Fehler könnte, frühzeitig noch vor dem 
Ausstieg des Programms entdeckt, abgefangen und aus¬ 
gemerzt werden. 

Die Formel dafür, ins obige Programm eingebaut, ist: 

85 IF ST<64 0R ST>8 THEN ..(z.B. LIST) 

Statt LIST kann man natürlich auch etwas anderes neh¬ 
men. 


Diskettenoperationen 

Bei dem Diskettenlaufwerk bedeutet ST=64 »DATEN¬ 
ENDE«, das ist etwa dasselbe wie bei der Datasette. Um es 
zu überprüfen, nehmen wir dasselbe Programm wie vorher, 
nur müssen wir die DATEI-Zeilen der Diskette anpassen. 
Das sieht dann so aus: 

10 OPEN 1,8,1,"DATEI,S,W" 

20 PRINT#1, "QWERTY" 

30 CL0SE 1 
40 END 

50 OPEN 2,8,0,"DATEI,S,R" 

60 F0R K=1 T0 10 
70 GET # 2,A$ 

80 PRINT A$;ST 
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64 

66 

66 

Die 64 ist natürlich wie erwartet der Wert für Daten-Ende. 
Die 66 ist 64+2, entstanden dadurch, daß wir über das 
Daten-Ende hinausgelesen haben. Die 2 bedeutet »Fehler 
beim Lesen« (in den englischen Beschreibungen heißt es 
»Read Time Out«). Ähnliches gilt für ST=1, das bedeutet 
»Fehler beim Schreiben« (englisch: Write Time Out). 

Wie bei der Datasette kann das Überlesen natürlich mit 
der Abfrage 

IF ST=64 THEN - und GOTO... 

gestoppt werden. 

Interessant ist noch der Status beim Fehler »DEVICE 
NOT PRESENT«, den wir dadurch erzeugen, daß wir ein 
Programm oder die Directory von der Diskette laden wollen, 
ohne daß dieses Gerät angeschlossen oder eingeschaltet 
ist. Nach der Fehlermeldung geben wir direkt ein: 

PRINT ST oder PRINT PEEK(144) 
und wir erhalten die Zahl 128. 

Wie man allerdings in einem Basic-Programm durch Ab¬ 
frage von ST=128 die Fehlermeldung »Device Not Present« 
und den dann folgenden Programmabbruch vermeiden 
kann, bedarf einer gesonderten Maßnahme: 

Es gibt zwei Speicherzellen - 768/769 -, in denen in Low-/ 
High-Byte-Darstellung eine Adresse steht, auf die das Be¬ 
triebssystem springt, wenn die Meldung »DEVICE NOT 
PRESENT« ausgegeben werden soll. Diesen Zeiger kann 
man so »verbiegen«, daß die Meldung nicht ausgegeben 
wird und das Programm einfach weiterläuft. 

Normalerweise steht in 768 die Zahl 139, in 769 die Zahl 
227. Verbogen wird der Zeiger durch eine 61 (185 geht 
auch). Dadurch zeigt die Adresse auf eine Speicherzelle 
des Betriebssystems, in welcher der Assembler-Befehl 
"RTS", das bedeutet Rücksprung, steht. Jetzt können wir 
ungestört den ST-atus abfragen, wir müssen allerdings 
den negativen Wert von ST, also -128 nehmen. 


10 POKE 768,61 
20 OPEN 1,8,15 
40 CLOSE 1 
50 POKE 768,139 
60 IF ST=-128 THEN 100 


Fehlermeldung abschalten 
Gerät ansprechen 

Fehlermeldung einschalten 
Sprung bei ausgeschalteten 
Gerät 


70 PRINT" FORTSETZUNG" weiter im Programm 
80 END Ende der DEMO 

100 PRINT" GERAET EINSCHALTEN" 

110 GET A$:IF A$=""THEN 110 Wartesehleife 
120 GOTO 10 neuer Versuch 


Drucker-Operation 

Für den Drucker sieht das Listing fast genauso aus. Die 
einzige Änderung ist in den Zeilen 20 und 30: 

20 OPEN 1,4 
30 PRINT #1 

Ich möchte nach eigenen längeren Versuchen aber dafür 
plädieren, die Fehlermeldung immer abzuschalten, um nie 
in Schwierigkeiten zu kommen. 

Vorsicht ist die Mutter der Weisheit. 

Damit sind wir am Ende unseres Kurses angelangt. Ei¬ 
nen Tip will ich Ihnen noch mit auf den weiteren Weg ge¬ 
ben: Experimentieren Sie ausgiebig mit den Listings, denn 
so lernen Sie am schnellsten, welche Möglichkeiten Ihnen 
die Basic-Programmierung bietet. 


So, nun haben Sie den Kurs erfolgreich mitgemacht und 
können sich schon zu den »Basic-Programmierern mit Er¬ 
fahrung« zählen. Vermutlich fragen Sie sich, wie es weiter¬ 
gehen soll, wie sich Ihre Kenntnisse weiter ausbauen und 
verfestigen lassen. Darauf gibt es keine Patentantwort. Wir 
können Sie nur dazu ermutigen, eigene Programme zu ent¬ 
wickeln - denn Übung macht den Meister. Wenn Ihnen da¬ 
bei ein oder zwei Gleichgesinnte, vielleicht auch jemand 
mit weiter fortgeschrittenen Kenntnissen zur Seite stehen, 
um so besser. Reichlich Anregung für Ihre eigenen Projek¬ 
te finden Sie übrigens regelmäßig in den 64'er-Sonderhef- 
ten sowie im 64’er-Magazin. Das gilt auch dann, wenn Sie 
eines Tages in das Programmieren in Maschinensprache 
einsteigen möchten. Sie sehen, es ist bestens dafür ge¬ 
sorgt, daß Sie Ihr neues Hobby weiter pflegen und ent¬ 
wickeln können. Selbstverständlich besteht auch die Mög¬ 
lichkeit, spezielle Bücher zum Lernen oder Nachschlagen 
zu Rate zu ziehen. In der Tabelle sind einige Titel aufge¬ 
führt, die Ihnen weitere Anregungen und Hilfen vermitteln 
können. 

Wir hoffen, daß Sie noch viel Spaß mit Ihrem Computer 
haben. 

(Dr. H. Hauck/Dr. R. Egg/ef) 


Weiterführende Literatur 


Wenn Sie Ihren Computer noch besser kennenlernen und Ihre Pro¬ 
grammierkenntnisse vertiefen wollen, steht Ihnen eine riesige Aus¬ 
wahl an Literatur zur Verfügung. Damit Ihnen die Auswahl leichtfällt, 
haben einige der interessantesten Bücher zusammengestellt. 


H. Tornsdorf, M.Tornsdorf: C64 Basic für Einsteiger, 
Data Becker, 29 Mark, ISBN 3-89011-246-3 


N. Szczepanowski: 64 für Einsteiger, Data Becker, 29 Mark, 
ISBN 3-89011-010-X 


Willian B. Sanders: Einführungskurs Commodore 64, 
Markt & Technik Verlag, 38 Mark, ISBN 3-89090-607-9 


M. Hegenbarth, R.Trierscheid: Basic Grundkurs mit dem C64, 
Markt & Technik Verlag, 44 Mark, ISBN 3-89090-361-4 


A. Polk: Die besten Tips & THcks, Data Becker, 29 Mark, 
ISBN 3-89011-281-1 


F. Müller: C64 Tips, TVicks und Tools, Commodore Sachbuch, 
Markt & Technik Verlag, 59 Mark, ISBN 3-89090-499-8 


H. J. Liesert: PEEKS & POKES zum Commodore 64, Data Becker, 
29 Mark, ISBN 3-89011-032-0 


Commodore Sachbuch: Alles über den C64, Markt & Technik 
Verlag, 59 Mark, ISBN 3-89090-379-7 


Schönleber: Das Commodore Floppy Buch, Data Becker, 
29 Mark, ISBN 3-89011-269-2 


Brückmann, Englisch, Feit, Gelfand, Gerits, Krsnik: 64 Intern, 
Data Becker, 69 Mark, ISBN 3-89011-000-2 


F. Müller: C64 für Insider, Commodore Sachbuch, 
Markt & Technik Verlag, 59 Mark, ISBN 3-89090-481-5 
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Die 1000 Nöle 


der Datenspeicherung 

Die magnetische Datenspeicherung, sei es auf 
Kassette oder Diskette, ist eine heikle Sache, bei der hin und wieder Fehler auftreten 

können. In diesem Bericht klären wir die 
möglichen Fehler und ihre Ursachen bei Floppy und Datasette. 


D ie Datasette und die Floppy 1541 sind für Besitzer ei¬ 
nes C64 die bekanntesten Medien, um Programme 
und andere Daten für längere Zeit zu speichern. Sie 
sind fast schon eine Selbstverständlichkeit geworden. 
Doch während wir mit diesen Geräten arbeiten, ist uns 
meist nicht bewußt, welche komplizierten Vorgänge hinter 
dem Begriff »magnetische Datenspeicherung« stecken. 
Solange alles ordnungsgemäß abläuft, ahnen wir nichts 
oder nur wenig von der komplexen Organisation, die uns 
das Speichern von Programmen auf Kassette oder Diskette 
ermöglicht. Treten jedoch erste Probleme auf, stellt man 
fest, daß das eigene Wissen über den C 64, die Floppy 1541 
oder die Datasette nicht ausreicht. 

Das erste Problem, mit dem der Anwender konfrontiert 
wird, ist die große Anzahl der Fehler, die beim Arbeiten mit 
dem Computer auftreten können. Doch auch die Floppy 
1541 besitzt viele Fehlermeldungen, die verstanden wer¬ 
den sollten. Selbst die Datasette birgt einige Geheimnisse, 
die für das Laden und Speichern von Daten von Bedeutung 
sind. 

Die Fehlermeldungen der Datasette und der Floppysta- 
tion sind das Thema dieses Berichts, wobei wir zunächst 
mit dem einfachen Speichermedium Datasette beginnen 
wollen. 

Soeben haben Sie sich eine Programmkassette gekauft, 
die ein neues Spiel enthält. Voller Erwartung schalten Sie 
Ihren C64 ein und laden das Programm. Nach merkwürdig 
kurzer Zeit stoppt die Datasette unvermittelt, während an¬ 
ders als sonst die ungewöhnliche Meldung »?LOAD ER¬ 
ROR« auf dem Monitor zu lesen ist. Trotz intensiver Bemü¬ 
hungen, wie mehrmaligem Tippen von RUN, läßt sich das 


Programm nicht starten. Schließlich versuchen Sie, das 
Programm erneut zu laden, doch erhalten Sie stets die glei¬ 
che unangenehme Nachricht auf dem Bildschirm. Das 
Spiel scheint verloren. 

Die eben beschriebene Erfahrung werden viele Compu¬ 
teranwender machen, die oft mit der Datasette arbeiten. 
Der »?LOAD ERROR« ist dabei eine der vielen Fehlermel¬ 
dungen, die der Computer zur Verfügung stellt, um Ihnen 
mitzuteilen, daß bestimmte Vorgänge nicht ordnungsge¬ 
mäß abgelaufen sind. Er tritt beim Betrieb der Datasette auf 
und zeigt an, daß das zu ladende Programm nicht einwand¬ 
frei von der Kassette gelesen werden kann. Die Ursachen 
können dabei vielfältiger Art sein, werden jedoch immer mit 
der schon bekannten Meldung angezeigt. 

Unsicheres Speichermedium - Datasette 


Für die genauere Lokalisierung eines Fehlers kann eine be¬ 
reits vom Computer reservierte Variable Auskunft geben. 
Sie hat den Namen »ST« und wird als Statusvariable be¬ 
zeichnet, da sie den Status, das heißt, den augenblickli¬ 
chen Zustand einer Datenübertragung, anzeigt. Jedes der 
8 Bit dieses Wertes hat dabei eine bestimmte Aufgabe, wel¬ 
che Sie in Tabelle 1 in einer Übersicht vorfinden. Die Bits 
2 bis 5 befassen sich speziell mit der Datasette. 

Um Fehler bei der Speicherung so gut als möglich zu ver¬ 
meiden, trifft der Computer einige Vorkehrungen. Wird ein 
Programm auf Kassette geschrieben, legt der C64 direkt 
hinter dem gespeicherten Programm eine komplette Kopie 
der Daten an, so daß das Programm immer doppelt gespei- 
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chert wird. Liest der Computer die Daten anschließend wie¬ 
der ein, lädt er die erste Version in den Speicher. Danach 
vergleicht er sie mit der Kopie. Stimmen einige Informatio¬ 
nen nicht überein, wird zunächst ein Versuch zur Korrektur 
unternommen. Gelingt dies nicht, setzt der Computer das 
Bit 4 der Statusvariable (PRINT ST ergibt den Wert 16) und 
stoppt den Ladevorgang mit einem »?LOAD ERROR«. 

Eine weitere Sicherheit bietet eine Prüfsumme. Während 
des Speicherns bildet der C64 eine Prüfsumme über die 
Programmdaten und legt sie zusätzlich auf dem Magnet¬ 
band ab. Laden Sie nun ein Programm, wird aus den gele¬ 
senen Bytes ebenfalls eine Prüfsumme errechnet, die mit 
der gespeicherten übereinstimmen muß. Ansonsten ist 
wiederum ein »?LOAD ERROR« die Folge. Ein Test der Sta¬ 
tusvariable gibt genauere Auskunft. Sie hat in diesem Fall 
den Wert 32 (Bit 5 gesetzt): ein Prüfsummenfehler. 

Zusätzlich kann es Vorkommen, daß während des Lade¬ 
vorgangs besondere Bytemarkierungen nicht ordnungsge¬ 
mäß erkannt werden. Diese benötigt der Computer zur ge¬ 
nauen Synchronisierung beim Lesen von Daten, denn er 
muß stets den Überblick über den Anfang und das Ende der 
einzelnen Bytes behalten. Fehlerhafte Markierungen stif¬ 
ten Verwirrung, weil die Daten nicht mehr richtig identifi¬ 
ziert werden können. In diesem Fall hat die Statusvariable 
ST bei einem »?LOAD ERROR« die Werte 4 oder 8 (Bit 2 
oder 3 gesetzt). 

Die richtige Einstellung ist alles 


Meist hat das Auftreten eines Ladefehlers eine recht einfa¬ 
che Ursache. Im Laufe der Zeit bildet sich eine Schmutz¬ 
schicht auf dem Tonkopf der Datasette, die das Lesen und 
Schreiben von Daten behindern kann. Mit einem alkohol¬ 
getränkten Wattestäbchen oder einer Reinigungskassette 
ist eine Reinigung schnell und einfach vorzunehmen. Hat 
man damit keinen Erfolg, kann das Problem an einem wei¬ 
teren Phänomen liegen. 

Möglicherweise war die Stellung des Tonkopfes Ihrer Da¬ 
tasette bezüglich des Kassettenbandes beim Schreiben 
des Programmes mit SAVE nicht die gleiche, wie beim Le¬ 
sen mit LOAD. Man kann dies besonders bei Kassetten be¬ 
obachten, die nicht mit der eigenen Datasette beschrieben 
wurden, da die Tonköpfe der Datasetten von Commodore 
die unterschiedlichsten Einstellungen vorweisen können. 

Oft hilft hier ein wiederholter Ladeversuch mit einer et¬ 
was anderen Tonkopfjustierung. Das Verstellen läßt sich 
übrigens leicht an einer der kleinen Schrauben neben dem 
Tonkopf vornehmen. Eine perfekte Justage ist mit einer 
kleinen elektronischen Schaltung zu bewerkstelligen, die 
wir im Sonderheft 15 des 64’er-Magazins vorgestellt haben. 

Erscheint nach mehreren Einstellungen jedoch weiter¬ 
hin die gefürchtete Fehlermeldung, handelt es sich aller 
Wahrscheinlichkeit nach um eine Kassette mit schadhaf¬ 
tem Bandmaterial. Beim Kauf von Leerkassetten sollten Sie 
deshalb auf gute Qualität achten (hochwertiges »Low- 
noise«-Eisenoxidband genügt). Fehlerhafte Softwarekas¬ 
setten mit fertig gespeicherten Programmen sollten beim 
entsprechenden Händler reklamiert werden. 

Doch auch Ihr bestes selbstgeschriebenes Programm ist 
möglicherweise noch nicht verloren, wenn ein Fehler auf¬ 
getreten ist. Zeigt die Statusvariable die Werte 16 (Fehler 
bei Vergleich) oder 32 (Prüfsummenfehler) können mit et¬ 
was Aufwand und Glück die Daten dennoch gelesen wer¬ 
den, da das Programm aufgrund der Sicherheitskopie 
zweimal hintereinander auf der Kassette steht. Die Markie¬ 
rungsfehler (PRINT ST ergibt 4 oder 8) sind dagegen recht 
schwer oder gar nicht zu umgehen. Eine Rettung des Pro¬ 
grammes ist hier sehr unwahrscheinlich. Fand der Lesefeh¬ 
ler kurz vor Programmende statt, kann bei einem Basic- 
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Programm zumindest der bereits geladene Teil in Sicher¬ 
heit gebracht werden. Am Ende eines solch verstümmelten 
Programmes befindet sich ein meist undefinierbares 
Durcheinander an Werten, was sich bei LIST durch wirre 
Zeichen in einer Basic-Zeile bemerkbar macht. Ein soge¬ 
nannter OLD-Befehl (oder auch RENEW: Rückgängig¬ 
machen von NEW) kann das »Wirrwarr« wieder in Ordnung 
bringen. Da der C64 diese Anweisung jedoch bei seinem 
Basic 2.0 nicht kennt, müssen Sie in diesem Fall auf eine 
Basic-Erweiterung zurückgreifen. 

Damit die bisher geschilderten Probleme nicht auftreten, 
ist es ratsam, ein gerade gespeichertes Programm so¬ 
gleich mittels VERIFY auf seine Fehlerfreiheit zu untersu¬ 
chen. VERIFY vergleicht das im Speicher befindliche Pro¬ 
gramm mit dem gespeicherten und zeigt eventuelle Unter¬ 
schiede durch eine Fehlermeldung an. Wurde das Pro¬ 
gramm korrekt auf Band geschrieben, lautet die Meldung 
nach dem Vergleich »OK«. Ein »7VERIFY ERROR« bedeu¬ 
tet hingegen, daß Fehler bei der Speicherung oder beim 
vergleichenden Lesen auftraten. Das Programm sollte 
nochmals mit SAVE gespeichert werden. Liegt die Vermu¬ 
tung nahe, daß das Kassettenband schadhaft ist, verwen¬ 
den Sie am besten eine neue Kassette. 


Bit 

Wert von 

ST wenn 
gesetzt 

Bedeutung 

0 

1 

Für die Datasette ohne Bedeutung 

1 

2 

Für die Datasette ohne Bedeutung 

2 

4 

zu kurzer Block 

3 

8 

zu langer Block 

4 

16 

Vergleichsfehler von ersten Daten und Kopie 

5 

32 

Prüfsummenfehler 

6 

64 

EOF; Ende der Datenübertragung 

7 

128 

EOT; Bandende 


Tabelle 1. Die Bitbelegung der Statusvariable ST 


Diese Sicherheitsvorkehrungen sind zwar mit einem gro¬ 
ßen Zeitaufwand verbunden, vermeiden aber meist Proble¬ 
me mit den eben beschriebenen Lesefehlern und den Är¬ 
ger über ein verlorenes Programm. Das Rekonstruieren ei¬ 
nes zerstörten Programmes ist zudem sehr viel umständli¬ 
cher. 

Wer jedoch ganz sicher gehen will, sollte zur Speiche¬ 
rung seiner Programme keine Datasette verwenden. Abge¬ 
sehen von der nicht gerade überwältigenden Arbeitsge¬ 
schwindigkeit dieses Gerätes (die sich zwar mit Fast-Tape- 
Programmen erheblich beschleunigen läßt) ist das Schrei¬ 
ben von Daten auf Kassetten keine besonders sichere An¬ 
gelegenheit. 

Vorbeugen mit VERIFY 


Wesentlich sicherer und schneller ist dagegen eine Floppy- 
station, die die Datenspeicherung auf Disketten erlaubt. 
Abgesehen vom Geschwindigkeitsvorteil bietet sie einen 
besseren Bedienungskomfort und eine relativ hohe Auf¬ 
zeichnungsdichte. 

Die Floppy 1541 zeigt einen sehr viel komplizierteren Auf¬ 
bau als die vergleichsweise primitive Datasette. Neben 
dem Laufwerk und der Mechanik zur Bewegung des 
Schreib-/Lesekopfes sind viele elektronische Bauteile im 
Gehäuse des Laufwerks untergebracht. Sie übernehmen 
die Steuerung der mechanischen Teile und koordinieren 
den Ablauf des Schreibens und Lesens auf der Diskette. 
Betrachtet man diese Schaltungen genauer, stellt man fest, 
daß sie ähnlich kompliziert sind wie die eines Computers, 
wobei wir auf einen wesentlichen Aspekt der Floppy 1541 
zu sprechen kommen. 



SONDERHEFT 40 














C64 


GRUNDLAGEN 


Im Gegensatz zu anderen Floppylaufwerken, die ledig¬ 
lich Daten lesen und schreiben können, kann die Floppy 
1541 als »intelligente« Diskettenstation bezeichnet werden, 
da sie selbständig Operationen durchführen kann, ohne 
vom Computer gesteuert werden zu müssen. Wie ein voll¬ 
ständiger Computer besitzt die Floppy 1541 einen eigenen 
Mikroprozessor (CPU), ein Betriebssystem, das DOS ge¬ 
nannt wird, und etwas RAM (Random Access Memory, frei 
übersetzt Schreib-/Lesespeicher) als Arbeitsspeicher für 
diverse Aktionen. Lediglich Bildschirm und Tastatur fehlen. 
Sie werden aber nicht benötigt, da die Kommunikation aus¬ 
schließlich über Ihren C64 erfolgt. Das DOS (»Disk Opera¬ 
tion System« = Diskettenbetriebssystem) erlaubt dies so¬ 
gar auf einfache Weise, wie wir noch sehen werden. 

Komfort und Sicherheit 
mit der Floppy 1541 


Wie Sie vielleicht wissen, besitzt der C 64 eine Vielzahl (ge¬ 
nau 30) verschiedener Fehlermeldungen, die Sie darauf 
aufmerksam machen, daß zum Beispiel ein Fehler wäh¬ 
rend des Programmablaufs aufgetreten ist. Die »intelligen¬ 
te« Floppy 1541 kennt ebenfalls 34 Fehlermeldungen, die 
dem Benutzer Ungereimtheiten bei der Arbeit mit einer Dis¬ 
kette mitteilen. Die Floppystation besitzt jedoch keinen 
Bildschirm, auf dem sie diese anzeigen kann, und so muß 
sie einen anderen Weg gehen. Ist ein Fehler, etwa beim Le¬ 
sen eines Programms, aufgetreten, beginnt die sonst kon¬ 
stant leuchtende rote Leuchtdiode am Laufwerk unregel¬ 
mäßig zu flackern, während ungewöhnliche »Klick«-Geräu- 
sche aus dem Inneren des Gehäuses zu vernehmen sind. 
Oftmals beschwert sich die Floppy 1541 mit einem unahge- 
nehmen Rattern, bis der Diskettenmotor schließlich anhält 
und die rote Leuchtdiode in einem regelmäßigem Rhyth¬ 
mus blinkt. Nach all diesen akustischen und-optischen Zei¬ 
chen weiß der Computeranwender, daß bei der Arbeit mit 
dem Diskettenlaufwerk ein Fehler erkannt worden ist, doch 
kann man noch nicht feststellen, um welche Art von Fehler 
es sich handelt. 

Zunächst müssen wir mit der Floppystation in Verbin¬ 
dung treten. Dies geschieht über den sogenannten Kom¬ 
mandokanal der 1541. Er dient in erster Linie zum Übermit¬ 
teln von Befehlen an die Floppystation, denn als intelligen¬ 
tes Gerät versteht sie natürlich auch Kommandos, die sie 
prompt und selbständig ausführt. Wir wollen uns aber mit 
der zweiten Aufgabe des Kommadokanals beschäftigen. 
Zusätzlich wird er nämlich als »Fehlerkanal« verwendet, der 
die Status- oder Fehlermeldungen der Floppy 1541 an den 
Computer übermitteln kann. Ist uns bei der Bedienung der 
Diskettenstation ein Fehler unterlaufen, was wir an der blin¬ 
kenden roten LED erkannt haben, können wir über diesen 
Kanal das Laufwerk nach der Ursache des Mißgeschicks 
befragen, das heißt die exakte Fehlermeldung erhalten. 
Doch wie können wir den Fehlerkanal ansprechen? 

Die Floppy 1541 besitzt insgesamt 16 Kanäle, die alle ge¬ 
wissen Aufgaben dienen. Sie können entweder zum 
Schreiben oder Lesen von Daten verwendet werden. Sie 
sind von 0 bis 15 durchnumeriert, wobei die Kanäle 2 bis 14 
dem Anwender zur Verfügung stehen. Die Kanäle 0,1 und 
15 sind jedoch von der Floppystation reserviert, wobei Ka¬ 
nal 15 unser besagter Kommandokanal ist. Er läßt nur das 
Senden von DOS-Kommandos oder das Empfangen der 
Fehlermeldungen zu. Wollen wir diesen Kanal ansprechen, 
müssen wir uns jedoch mit dem nötigen Handwerkszeug 
vertraut machen. Bevor wir die Fehlermeldung lesen kön¬ 
nen, müssen wir den Kommandokanal aktivieren, was oft 
auch als Öffnen bezeichnet wird. Dazu verwenden wir den 


Basic-Befehl OPEN, den Sie vielleicht schon vom Arbeiten 
mit Dateien kennen. Für das Öffnen des Kommandokanals 
ist folgender Befehl einzugeben: 

OPEN 1,8,15 

Damit richten wir eine Datei mit der Nummer 1 ein und 
adressieren die Floppystation mit der Gerätenummer 8. Die 
letzte Zahl der obigen Anweisung gibt schließlich die Kanal¬ 
nummer an, die der Datei zugeordnet werden soll. Sie lau¬ 
tet 15, und das ist - wie wir schon wissen - der Kommando¬ 
kanal. 

Nun können wir zum Beispiel einen Befehl an die Floppy 
1541 senden, der nach einer Prüfung auf korrekte Syntax 
ausgeführt wird. Das soll uns aber hier nicht weiter interes¬ 
sieren. Wir wollen nur Daten empfangen, nämlich die Feh¬ 
lermeldungen, die uns das Laufwerk bereitstellt. Das er¬ 
möglichen uns die Anweisungen INPUT # oderGET #. Sie 
funktionieren ähnlich wie die Anweisungen INPUT und 
GET. Mit INPUT # können mehrere Zeichen einer Datei ge¬ 
lesen werden, während GET # nur ein Zeichen empfängt. 
Wie INPUT und GET dürfen beide Befehle nur in einem 
Programm und nicht im Direktmodus verwendet werden, 
weshalb wir jeweils eine Zeilennummer voranstellen: 

10 OPEN 1,8,15 

20 INPUT # 1,FN,FM$,TR,SE: PRINT FN;FM$;TR;SE 

Nach Beendigung der Arbeit muß der Kommandokanal 
wieder geschlossen, das heißt inaktiviert werden, was 
durch den Befehl CLOSE erfolgt. Schließen wir also unsere 
Datei mit der Nummer 1 wieder: 

30 CLOSE 1 

Wenn Sie die Zeile 20 unseres kleinen Programms be¬ 
trachten, werden Sie erkennen, daß die Fehlermeldung der 
1541 aus vier unterschiedlichen Teilen besteht. Der erste 
Wert, der über den Kommandokanal empfangen wird, ist 
dieN.,mmerdes aufgetretenen Fehlers (FN). Der darauffol¬ 
gende String enthält die Meldung im Klartext (FM$), wäh¬ 
rend die abschließenden Werte TR und SE eine nähere Lo¬ 
kalisierung des Fehlers erlauben. Ihre genaue Bedeutung 
wird im Laufe dieses Berichtes noch erläutert. 

Kommunikation mit der Floppy 1541 


Ebenso kann die Meldung Zeichen für Zeichen mit GET# 
gelesen werden. Zeile 20 würde dann so aussehen: 

20 GET# 1,A$: PRINT A$;: IF ST <>64 THEN 20 

Seltsamerweise tritt hier die uns schon bekannte Status¬ 
variable ST auf. Sie hilft uns, das Ende der Meldung festzu¬ 
stellen. Liegen keine weiteren Daten von einem Gerät am 
seriellen Bus mehr an, nimmt ST den Wert 64 (Bit 6 ist ge¬ 
setzt) an. Die vollständige Fehlermeldung wurde gesendet. 

Nachdem Sie unser kleines Fehlerprogramm mit RUN 
gestartet haben, sollten folgende Zeichen ausgegeben 
werden: 
o OK o o 
oder 

00, OK,00,00 

Erstere Meldung erhalten Sie bei der Programmversion 
mit INPUT #, während zweitere bei der Zeile 20 mit GET # 
ausgegeben wird; die Aussage ist jedoch die gleiche. Diese 
beiden Texte sind eigentlich keine Fehleranzeigen. Sie tei¬ 
len uns lediglich mit, daß ein Befehl oder eine Aktion der 
Floppystation einwandfrei ausgeführt worden ist. Selbst 
wenn wir kein Kommando gesendet haben, wird nach Ab¬ 
lauf unseres Programms immer diese Statusnachricht auf 
dem Bildschirm erscheinen. Man kann sie als das »READY« 
der Floppy 1541 verstehen. Die rote Leuchtdiode blinkt da¬ 
bei nicht. Lediglich nach dem Einschalten der Diskettensta¬ 
tion können wir eine andere Statusmeldung empfangen. 
Sie lautet 

73, CBM DOS V2.6 1541,00,00 
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Damit »begrüßt« uns die Floppy 1541 und sagt uns, mit 
welcher Version des DOS gearbeitet wird. Daher kann bei 
einer anderen Floppy eine unterschiedliche Versionsnum¬ 
mer ausgegeben werden. Tritt sie in Verbindung mit einer 
blinkenden roten Leuchtdiode auf, hat sie eine andere Be¬ 
deutung, die wir noch kennenlernen werden. Doch können 
wir noch eine weitere Statusmeldung empfangen, deren 
Ankunft nicht durch ein Flackern der Arbeits-LED angekün¬ 
digt wird. 

Das »Wegkratzen« von Dateien 


darin befindet. Die Floppy 1541 bemerkt dies recht schnell 
und antwortet sofort: 

74,DRIVE NOT READY,00,00 

Sollten Sie aber dennoch eine Diskette in den Laufwerk¬ 
schacht geschoben haben, kann die Ursache an einer un¬ 
formatierten Diskette oder an Problemen bei der Schreib-/ 
Lesekopfbewegung liegen. Im ersten Fall muß die Diskette 
formatiert werden (siehe Handbuch). Im zweiten Fall hilft 
manchmal die nachstehende Befehlsfolge: 

OPEN 1,8,15 
PRINT #1, "I" 

CLOSE 1 


Bei der Arbeit mit Disketten kommt es oftmals vor, daß man 
ein gespeichertes Programm nicht mehr benötigt. Nun 
könnte man das Programm durchaus auf der Diskette be¬ 
lassen, jedoch würde dadurch unnötiger Speicherplatz be¬ 
legt, der für andere Programme oder Daten verlorenginge. 
Das Programm muß also von der Diskette gelöscht werden. 
Als eifriger Anwender der Floppy 1541 haben Sie deshalb 
sicherlich das Handbuch nach einem geeigneten Befehl 
durchsucht und sind auf eine entsprechende Anweisungs¬ 
folge gestoßen: 

OPEN 1,8,15 
PRINT#1, "S: (Name) " 

CLOSE 1 

Haben Sie bisher diese etwas komplizierte Folge einfach 
als Befehl hingenommen, ohne über die seltsamen Anwei¬ 
sungen nachzudenken, werden Sie spätestens bei der Er¬ 
klärung des Kommandokanals in diesem Bericht eine Ähn¬ 
lichkeit zu unserem Fehlerprogramm festgestellt haben. In 
beiden Fällen muß der Kommandokanal geöffnet werden. 
Beim Löschen eines Programmes von Diskette wird ledig¬ 
lich mit PRINT# eine Zeichenfolge an die Floppy 1541 ge¬ 
schickt und zwar ein DOS-Befehl mit dem Namen »S«. Er 
ist die Abkürzung für »SCRATCH«, was auf Deutsch etwa 
»wegkratzen« bedeutet. Nachdem man den Scratch-Befehl 
eingegeben hat, beginnt das Laufwerk zu arbeiten (rote 
Leuchtdiode leuchtet). Nach kurzer Zeit erlischt die rote 
LED wieder: die Floppy 1541 hat die Datei mit dem angege¬ 
benen Namen gelöscht. Als Bestätigung kann man eine 
Statusmeldung empfangen, die uns mitteilt, daß eine Datei 
gelöscht wurde: 

01,FILES SCRATCHED,01,00 

Die erste Zahl hinter der Klartextmeldung gibt an, wie vie¬ 
le Dateien gelöscht wurden. Dies ist durchaus sinnvoll, da 
man mit Hilfe der Jokerzeichen (? und *) mehrere Dateien 
zugleich von der Diskette entfernen lassen kann. Die An¬ 
weisung 
OPEN 1,8,15 
PRINT #1, "S:TE#" 

CLOSE 1 

richtet sich beispielsweise an sämtliche Dateien einer Dis¬ 
kette, die mit den Buchstaben »TE« beginnen. Befinden 
sich vielleicht die Programme »TEST« und »TEXT« auf der 
eingelegten Diskette, werden beide gelöscht, und bei der 
Statusmeldung »FILES SCRATCHED« die Zahl 02 (2 Datei¬ 
en) ausgegeben. 

Kommen wir aber nun zu den Meldungen, die einen rich¬ 
tigen Fehler anzeigen. Jede besitzt eine Nummer zwischen 
0 und 74. Doch nicht jeder Nummer ist einer Fehlermeldung 
zugeordnet (es gibt »nur« 34). Wir werden diese im folgen¬ 
den auch nicht nach Nummern sortiert vorstellen, sondern 
wir gruppieren sie nach ihrer Funktion und Bedeutung. 

Beginnen wir gleich mit einigen einfachen Fehlern, die 
Sie bei der Arbeit mit der Floppy 1541 relativ häufig erhalten 
werden. Sie sind jedoch vergleichsweise harmlos. 

Es kann Vorkommen, daß Sie versehentlich mit dem Dis¬ 
kettenlaufwerk arbeiten wollen, obwohl sich keine Diskette 


Befindet sich unter Ihrer Diskettensammlung auch eine 
Diskette, die auf einer anderen Commodore-Floppystation 
(zum Beispiel CBM 3040) beschrieben wurde, kann die 
Floppy 1541 sie unter Umständen nur lesen. Beim Schrei¬ 
ben gibt es Schwierigkeiten: die Diskette wird sofort als 
fremd erkannt. Eine uns schon bekannte Meldung wird 
über den Kommandokanal gesendet: 

73,CBM DOS V2.6 1541,00,00 
Nun blinkt die rote LED und zeigt uns einen Fehler an. 
Die Nachricht soll uns daran erinnern, daß wir nur Disketten 
verwenden dürfen, die von einer Floppy 1541 beschrieben 
wurden oder zu diesem Diskettensystem passen. 

Endlich liegt die richtige Diskette im Laufwerk. Voller 
Stolz wollen Sie ein selbstgeschriebenes Basic-Programm 


Nummer 

Fehler 

00 

OK 

01 

FILES SCRATCHED,XX 

26 

WRITE PROTECT ON 

72 

DISK FULL 

73 

CBM DOS V2.6 1541 


Bedeutung 


Befehl wurde ordnungsgemäß aus¬ 
geführt 

XX Dateien wurden gelöscht 
Diskette ist durch eine Schreib¬ 
schutzplakette vor dem Überschrei¬ 
ben geschützt 

Diskette ist voll, oder es wurden be¬ 
reits 144 Dateien gespeichert 
Einschaltmeldung; Diskette mit 
Fremdformat eingelegt 


Tabelle 2. Ein Teil der Fehlermeldungen der 1541 


mit SAVE speichern. Doch schon nach kurzer Zeit blinkt er¬ 
neut die rote Leuchtdiode. Auf dem Fehlerkanal wartet fol¬ 
gende Meldung auf ihren Abruf: 

26,WRITE PROTECT ON,00,00 
Hier ist offensichtlich die Schreibschutzkerbe der Disket¬ 
te (die kleine eckige Aussparung an der Seite des Disket¬ 
tenmantels) mit einer Plakette überdeckt. Wie der Name 
schon sagt, kann man durch Überkleben dieser Kerbe eine 
Diskette vor dem Überschreiben oder Löschen schützen. 
Entfernt man die Abdeckung wieder, ist die Speicherung 
wieder möglich. 


»SYNTAX ERROR« gleich sechsmal 


Haben Sie den Aufkleber von der Kerbe entfernt, können 
Sie mehrere Programme mit SAVE auf die Diskette schrei¬ 
ben. Irgendwann ist jedoch die Kapazität der Diskette er¬ 
schöpft. Paßt ein Programm nicht mehr darauf, wird die 
Floppy 1541 die Nachricht 
72,DISK FULL,00,00 

auf dem Fehlerkanal bereitstellen. Dieser Fehler tritt auch 
auf, wenn Sie zu viele verschiedene Programme speichern 
wollen. Auf einer Diskette können nämlich maximal 144 Da¬ 
teien abgelegt werden, selbst wenn ansonsten noch Spei¬ 
cherplatz zur Verfügung steht. 

Betrachten Sie Tabelle 2, dann sehen Sie alle bisher be¬ 
sprochenen Status- und Fehlermeldungen. Eine Kurzbe¬ 
schreibung gibt nochmals einen Überblick über deren Be¬ 
deutungen und Ursachen. 
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Kommen wir nun zu einem Fehlertyp, den Sie wahr¬ 
scheinlich von Ihrem C64 kennen: dem »SYNTAX ER¬ 
ROR«. Er erscheint auf Ihrem Computer beispielsweise, 
wenn Sie einen Befehl eingetippt haben, den der C64 nicht 
kennt. Eine andere Ursache kann sein, daß eine Anwei¬ 
sung falsch, das heißt, nicht den Regeln entsprechend, ein¬ 
gegeben wurde. Der Computer beschwert sich mit einem 
»SYNTAX ERROR«, da die Syntax (Schriftform) eines Be¬ 
fehles nicht ordnungsgemäß befolgt wurde. Ähnlich verhält 
es sich auch bei der Floppy 1541. In vorangegangenen Ab¬ 
schnitten haben wir erwähnt, daß die Floppystation ver¬ 
schiedene Kommandos verarbeiten kann. Wie beim C64 
muß bei der Eingabe, also dem Senden über den Komman¬ 
dokanal eine Syntax eingehalten werden. Wird diese igno¬ 
riert, antwortet das Diskettenlaufwerk mit einem »SYNTAX 
ERROR«. Doch macht die Floppy 1541 bei der Art der Feh¬ 
lerkennung genaue Unterschiede. Sie kennt insgesamt 
sechs Syntax-Fehlermeldungen mit den Fehlernummern 
30 bis 34 und 39. Einige davon haben jedoch sehr ähnliche 
Bedeutungen. 


Nummer 

Fehler 

Bedeutung 

30 

SYNTAX ERROR 

allgemeiner Syntaxfehler 

31 

SYNTAX ERROR 

ungültiger Befehl 

32 

SYNTAX ERROR 

Befehlszeile zu lang 

33 

SYNTAX ERROR 

unerlaubte Verwendung eines Jo¬ 
kerzeichens 

34 

SYNTAX ERROR 

Dateiname ist nicht angegeben 

39 

SYNTAX ERROR 

ungültiger Befehl 


Tabelle 3. Die Floppy 1541 kennt sechs »SYNTAX ERROR« 


Ein »SYNTAX ERROR« liegt vor, wenn ein Kommando, 
das über den Kommandokanal gegeben wird, nicht als Be¬ 
fehl identifiziert werden kann. Oftmals sind falsch angeord¬ 
nete Parameter, die mit dem Befehl gesendet werden müs¬ 
sen, die Übeltäter. In diesem Fall wird die Floppystation ei¬ 
nen Syntax-Error mit der Nummer 30 ausgeben. Existiert 
der Befehl jedoch gar nicht, beschwert sich das Laufwerk 
mit einem Fehler der Nummer 31. Ist man aber fest davon 
überzeugt, einen korrekten Befehl eingegeben zu haben, 
kann der Grund bei einem Leerzeichen liegen, das man 
versehentlich vor das Kommandowort gesetzt hat. Das Dis¬ 
kettenlaufwerk akzeptiert nur Anweisungen, die an erster 
Position stehen. Die dritte Meldung, die auf einen falschen 
Befehl hinweist, ist der Syntax-Error mit der Nummer 39. Er 
tritt auf, wenn ein Befehl von der Floppy 1541 nicht eindeu¬ 
tig interpretiert werden kann, weil er zum Beispiel zusam¬ 
men mit anderen Zeichen in einer Kommandozeile steht. 

Eine sogenannte Befehlszeile, das heißt die Befehlsfol¬ 
ge, die über den Kommandokanal geschickt wird, darf bei 
der Floppy 1541 maximal 58 Zeichen lang sein. Bei den 
meisten DOS-Anweisungen wird man dieses Maximum 
nicht überschreiten, da die Anordnung der eventuell mitge¬ 
sendeten Parameter fest vorgeschrieben ist. Einigen Kom¬ 
mandos können jedoch variable Parameterlisten ange¬ 
hängt werden. In einem solchen Fall kann es leicht gesche¬ 
hen, daß die Befehlszeile länger als 58 Zeichen wird. Ein 
»32, SYNTAX ERROR,00,00« ist die Folge. 

Kennt man die wichtigsten Diskettenbefehle, lernt man 
schnell, welche davon einen oder mehrere Dateinamen be¬ 
nötigen. Es ist dann höchst unwahrscheinlich, daß man 
zum Beispiel beim Löschen einer Datei vergißt, den Namen 
der betreffenden Datei anzugeben. Doch das Fehlen eines 
einzigen Zeichens kann es für das DOS der 1541 unmög¬ 
lich machen, die Bezeichnung zu erkennen. Ein kleines 
Beispiel soii dies demonstrieren: 

OPEN 1,8,15 
PRINT #1,"STEST" 

CL0SE 1 



Wie Sie sehen können, fehlt hier der Doppelpunkt zwi¬ 
schen Befehl (S) und Dateiname (TEST). In diesem Fall 
kann die Floppy 1541 den Namen »TEST« nicht entziffern 
und gibt einen besonderen Fehler mit der Nummer 34 aus. 
Er weist uns darauf hin, daß ein Dateiname in der Komman¬ 
doanweisung fehlt, der für die Bearbeitung des angegebe¬ 
nen Befehls notwendig ist. 

Der sechste »SYNTAX ERROR« steht ebenfalls mit Datei¬ 
namen im Zusammenhang. Seine Nummer ist 33. Tritt die¬ 
ser Fehler auf, wissen wir, daß wir eines der Jokerzeichen 
falsch angewendet haben. Die Joker (? und *•) sind be¬ 
kanntlich Hilfsmittel, um Dateinamen abzukürzen, oder wie 
bei dem SCRATCH-Kommando, um mehrere Dateien einer 
Diskette gleichzeitig anzusprechen. Bei einigen Befehlen, 
die Namen als Parameter benötigen, dürfen die Jokerzei¬ 
chen nicht eingesetzt werden. Eines dieser Kommandos ist 
Ihnen geläufig. Es ist das NEW- oder N-Kommando zum 
Formatieren einer Diskette. Mißbrauchen wir nun einmal 
vorsätzlich den Joker »*«: 

OPEN 1,8,15 

PRINT#1,"N:TESTDIS#,TD" 

CL0SE 1 

Die Diskettenstation wird dies nicht akzeptieren und fol¬ 
gende Fehlermeldung erzeugen: 

33, SYNTAX ERROR,00,00 

Womit wir den letzten der besprochenen Syntax-Fehler 
provoziert hätten. In Tabelle 3 haben wir alle Syntaxfehler 
mit kurzen Erläuterungen zusammengefaßt. 

Neben Programmen kann die Floppy 1541 auch andere 
Daten auf einer Diskette speichern. Wenn Sie zum Beispiel 
ein Programm geschrieben haben, das die Adressen Ihrer 
Freunde verwaltet, sollten deren Daten für längere Zeit ge¬ 
speichert werden, denn der Speicherinhalt des C64 wird 
beim Ajsschalten gelöscht. Hierfür bietet die 1541 eine be¬ 
sondere Lösung: die sequentielle Datenspeicherung. Die 
Diskettenstation erlaubt es Ihnen, beliebige Daten in se¬ 
quentiellen Dateien (SEQ-Dateien) abzulegen, um sie bei 
Bedarf jederzeit wieder in den Speicher des Computers zu¬ 
rückzuholen. Die Daten werden dabei der Reihe nach (se¬ 
quentiell) auf die Diskette geschrieben und können ebenso 

Stolpersteine bei der Dateiverwaltung 


wieder gelesen werden. Die Handhabung ist denkbar ein¬ 
fach. Dennoch können dem Programmierer einige Mißge¬ 
schicke unterlaufen. 

Um die Fehlermeldungen, die die Floppy 1541 als Hilfe¬ 
stellung bereitstellt, zu erläutern, werden wir nun eine se¬ 
quentielle Datei eröffnen. Selbst wenn Sie noch keine Er¬ 
fahrung mit der Datenspeicherung auf der Floppy 1541 ge¬ 
macht haben, werden Sie den Gedankengängen leicht fol¬ 
gen können, da wir die Erklärungen so allgemein wie mög¬ 
lich formulieren, ohne speziell auf Befehlsstrukturen einzu¬ 
gehen. 

Die Handhabung einer Datei gliedert sich in vier Schritte. 
Sie erfolgt auf ähnliche Weise wie die Bedienung des Kom¬ 
mandokanals: 

1. Öffnen der Datei mit OPEN 

2. Schreiben von Daten mit PRINT# 

3. oder Lesen von Daten mit INPUT# oder GET # 

4. Schließen der Datei mit CLOSE 

Nachdem wir uns einen Namen für unsere Datei ausge¬ 
sucht haben (er soll »TESTDATEI« lauten), kann die Daten¬ 
speicherung beginnen. In unserer Zerstreutheit übergehen 
wir Punkt 1 der Liste und versuchen sofort, Daten auf die 
Diskette zu schreiben. Dieser äußerst gravierende Mangel 
fördert schon die erste Fehlermeldung zutage. Ohne daß 
der Fehlerkanal der Floppystation nach einer Fehlermel- 
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düng abgerufen werden muß, beschwert sich der Compu¬ 
ter mit einem »?FILE NOT OPEN ERROR«, da wir die Datei 
nicht mit OPEN geöffnet haben. Der Fehlerkanal der Flop¬ 
py 1541 zeigt das gleiche Resultat: 

61, FILE NOT OPEN,00,00 

Die Datei muß zunächst unter einem Namen eröffnet 
werden. Unglücklicherweise befindet sich auf unserer Dis¬ 
kette bereits eine andere Datei mit dem gleichen Namen. 
Die Organisation der Diskette erlaubt jedoch zwei Dateien 
gleichen Namens nicht, und so werden wir mit dem näch¬ 
sten Fehler konfrontiert. Die Floppystation meldet: 

63, FILE EXISTS,00,00 

Ein neu gewählter Name (zum Beispiel »TESTFILE«) löst 
dieses Problem. Die gewünschten Daten können nach all 
den anfänglichen Schwierigkeiten endlich auf die Diskette 
geschrieben werden. 

Hat man die besagten Daten in einer sequentiellen Datei 
abgelegt, ist es besonders wichtig, den Abschluß der Arbeit 
mit dem Befehl CLOSE anzukündigen. Die Datei muß wie¬ 
der geschlossen werden. Ungeachtet dieser Tatsache 
schalten wir jedoch unseren Computer ab, ohne den letz¬ 
ten notwendigen Schritt zu tun. Die Datei wird damit nicht 
ordnungsgemäß geschlossen. 

Fehler des Schicksals 


Schließlich wollen wir die Daten wieder in den Computer le¬ 
sen. Versehentlich legen wir eine andere Diskette in das 
Laufwerk, die unsere Datei nicht enthält. Beim Öffnen der 
Datei kann die Floppystation die gesuchten Daten nicht fin¬ 
den und antwortet mit einer Fehlermeldung: 

62, FILE NOT FOUND,00,00 

Die Datei wurde nicht gefunden. Parallel dazu gibt der 
C64 ebenfalls die gleiche Meldung aus: 

?FILE NOT FOUND ERROR 

Auch beim Laden von Programmen kann dieser Fehler 
auftreten, denn Programme sind eine besondere Art von 
Dateien (PRG-Dateien). Haben wir nach längerem Suchen 
endlich die richtige Diskette in das Laufwerk eingescho¬ 
ben, können wir einen erneuten Versuch wagen. Leider ge¬ 
ben wir dabei den falschen Filetyp an, denn die Floppy 1541 
kennt neben den Programmen (PRG) und den sequentiel¬ 
len (SEQ) Dateien noch weitere Arten der Datenspeiche¬ 
rung. So kann man auch eine »User«-Datei (USR) eröffnen, 
die sich in der Handhabung jedoch nicht von SEQ-Dateien 
unterscheidet, und es gibt noch die relative Datenspeiche¬ 
rung (REL). Wir werden gleich auf sie eingehen. 

Jedes Mal, wenn wir eine Datei öffnen, um Daten zu 
schreiben oder zu lesen, müssen wir den entsprechenden 
Dateityp angeben. Sie erinnern sich, daß unsere Datei vom 
Typ SEQ war. Wollen wir wieder darauf zugreifen, ist dieser 
Typ wiederholt anzugeben. Geschieht dies nicht, reagiert 
das Floppylaufwerk mit einem Fehler. Er kann provoziert 
werden, wenn wir unsere Datei mit dem Namen »TESTFI¬ 
LE« nicht als SEQ- sondern beispielsweise als USR-Datei 
ansprechen wollen. Die Antwort des Laufwerks folgt nach 
kurzer Zeit: 

64, FILE TYPE MISMATCH,00,00 

Doch nun wollen wir unsere Datei ordnungsgemäß mit 
richtigem Filetyp und Namen zum Lesen von Daten öffnen. 
Obwohl wir alle Bedingungen beachtet haben, beginnt die 
rote Leuchtdiode erneut zu blinken. Eine weitere Meldung 
wartet auf dem Fehlerkanal: 

60, WRITE FILE OPEN,00,00 

Mit Schrecken erinnern wir uns, daß wir beim Anlegen 
der Datei das Schließen mit CLOSE vergessen haben. Sie 
wurde damit nicht ordnungsgemäß abgeschlossen und 
kann jetzt nicht mehr gelesen werden. Die obige Nachricht 
weist uns unmißverständlich darauf hin. Die ganze Mühe, 


die wir uns mit unserer Datei machten, war also umsonst. 
Mit viel Aufwand und guten Programmierkenntnissen kann 
man zwar eine Datei nachträglich schließen und auf diese 
Weise die verloren geglaubten Daten fetten, doch ist dies 
ziemlich zeitaufwendig. 

Es ist sehr unwahrscheinlich, daß man all die Torturen, 
die wir eben spielerisch demonstriert haben, bei der Arbeit 
mit einer Datei in dieser Weise durchleben muß. Denn.hat 
man sich etwas mit der Dateibedienung der Floppy 1541 
beschäftigt, kann man viele dieser Fehler von Beginn an 
vermeiden. 

Wir sind aber bei der Erläuterung der Fehlermeldungen 
zur Bearbeitung von Dateien noch.nicht am Ende. In einem 
früheren Abschnitt dieses Artikels haben Sie kennenge¬ 
lernt, daß es neben der sequentiellen auch die relative Da¬ 
tenspeicherung gibt., Sie wird verwendet, wenn man 
schnell auf bestimmte Elemente der Daten zugreifen will. 
Diese Art der Datenspeicherung ist aber wesentlich kompli¬ 
zierter als etwa die sequentielle. Jedes Datenelement hat 
bei relativen Dateien eine begrenzte Länge und wird als Da¬ 
tensatz oder »Record« bezeichnet. Eine Datei kann nun vie¬ 
le dieser Datensätze enthalten, die alle aufsteigend nume¬ 
riert werden. Hat man nun alle gewünschten Datensätze 
auf der Diskette gespeichert, kann man durch Angabe der 
Nummer den entsprechenden Datensatz direkt anspre¬ 
chen, ohne etwa davor befindliche Daten überlesen zu 
müssen. 

Hierbei können besondere Fehler auftreten, die die Flop¬ 
py 1541 auch mit besonderen Meldungen bedacht hat. Die 
Nummern dazu lauten 50, 51 und 52. 

Es kann beispielsweise Vorkommen, daß man auf einen 
nicht vorhandenen Datensatz zugreifen will. Die Floppysta¬ 
tion übermittelt uns dann die folgende Nachricht: 

50, fiStMiPD NOT PRESENT,00,00 

Wir wissen somit, daß sich der Datensatz der angegebe¬ 
nen Nummer nicht in der Datei befindet. Schreibt man nun 


Nummer 

Fehler 

Bedeutung 

60 

WRITE FILE OPEN 

Zugriff auf eine nicht geschlossene 
Datei 

61 

FILE NOT OPEN 

Datei ist nicht geöffnet 

62 

FILE NOT FOUND 

Datei wurde nicht gefunden 

63 

FILE EXISTS 

Datei mit angegebenem Namen 
existiert bereits 

64 

FILE TYPE MISMATCH 

falscher Dateityp angegeben 

Nur bei relativen Dateien 


50 

RECORD NOT PRESENT 

Datensatz der angegebenen Num¬ 
mer existiert nicht 

51 

OVERFLOW IN RECORD 

Datensatz zu lang 

52 

FILE TOO LARGE 

Datei kann nicht erweitert werden, 
da Diskette voll 


Tabelle 4. Die möglichen Fehler bei der Arbeit mit Dateien 


aber dennoch Daten hinein, ist die Floppy 1541 sehr hilfs¬ 
bereit und erweitert die Datei um diesen zusätzlichen Da¬ 
tensatz. Beim Speichern von Datensätzen muß man jedoch 
sehr vorsichtig sein. Es wurde bereits erwähnt, daß alle Da¬ 
tensätze nur eine bestimmte Länge (Anzahl von Zeichen) 
haben dürfen. Ignoriert man diese Tatsache, sieht man sich 
mit einem weiteren Fehler konfrontiert: 

51, OVERFLOW IN RECORD,00,00 

Eine relative Datei kann jederzeit um beliebige Records 
erweitert werden. Irgendwann reicht aber die Speicherka¬ 
pazität der verwendeten Diskette nicht mehr aus, um neue 
Datensätze aufzunehmen. Wenn es soweit ist, teilt uns die 
Floppystation dies durch eine Fehlermeldung mit: 

52, FILE T00 LARGE,00,00 

Die Datei kann nicht mehr erweitert werden, da sie die, 
für relative Dateien vorgeschriebene, Maximallänge er- 
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reicht hat. Diese Meldung gilt aber nur bei relativen Dateien 
und ist nicht zu verwechseln mit der »72, DISK FULL,00,00«- 
Nachricht, deren Bedeutung Sie schon kennengelernt ha¬ 
ben. 

Damit ist das Reservoir an Fehlermeldungen bezüglich 
der Dateibehandlung erschöpft. Sollte Ihnen bei der Fülle 
an Informationen schwindlig geworden sein, blicken Sie bit¬ 
te auf Tabelle 4. Hier haben wir alle die in diesem Abschnitt 
besprochenen Fehlermeldungen noch einmal zusammen¬ 
gestellt. 

Alle Fehlermeldungen, die wir bisher bei unserer Exkur¬ 
sion durch die Welt der »Errors« erforscht haben, werden Ih¬ 
nen im Laufe der Zeit oftmals begegnen, wenn Sie nur in¬ 
tensiv genug mit der Floppy 1541 arbeiten. Des weiteren 
zeichnen sie sich durch eine Gemeinsamkeit aus: Sie alle 
sind Anwenderfehler, das heißt Fehler, die auf das Unwis¬ 
sen oder die Unzulänglichkeit des Programmierers zurück¬ 
zuführen sind. Hat man sich genügend Wissen über die 
Floppystation angeeignet, wird man sie größtenteils ver¬ 
meiden können. 

Auf unserem Pfad, der uns jetzt weg von Programmen 
und Dateien in das innere des Diskettenlaufwerks führt, 
werden wir jedoch Fehlermeldungen kennenlernen, deren 
Ursache meist nicht durch eine Fehlbedienung gegeben 
ist. Hier sind oft minderwertige Disketten mit beschädigter 
Magnetoberfläche oder fremde Umwelteinflüsse die Übel¬ 
täter, die das ordnungsgemäße Speichern von Daten be¬ 
hindern und so für Fehler sorgen. 

Hier ein Beispiel aus dem täglichen Leben: Sie laden ei¬ 
nes Ihrer beliebtesten Spielprogramme und nehmen schon 
den Joystick zur Hand. Doch plötzlich gibt die Floppystation 
seltsame Geräusche von sich, während die rote Leuchtdio¬ 
de, die zuvor konstant leuchtete, unregelmäßig zu flackern 
beginnt. Schließlich ertönt ein scheußliches Rattern und 
das Laufwerk hält mit einer Fehlermeldung an, obwohl man 
alle Eingaben in den Computer korrekt vorgenommen hat. 
Das Spielprogramm kann nicht mehr geladen werden und 
scheint für immer verloren. Wir werden diese Art von Feh¬ 
lern im folgenden besprechen. 

Worum Formatieren? 


Um ihre Bedeutung .genau zu verstehen, müssen wir uns 
zunächst mit der Organisation einer Diskette bei der Floppy 
1541 beschäftigen. Wir werden kennenlernen, auf welche 
Weise unser Diskettenlaufwerk Programme und andere 
Daten auf einer Diskette ablegt. 

Wenn mehrere Programme auf einer Kassette gespei¬ 
chert werden sollen, läuft dies nach einem einfachen Sche¬ 
ma ab. Die Daten werden der Reihe nach auf das Magnet¬ 
band geschrieben. Ist ein Programm zu Ende, kann gleich 
dahinter ein neues Programm gespeichert werden. Man 
kann dies fortführen, bis die Kassette abgelaufen ist. Durch 
Abspielen des gesamten Bandes oder manuelles Vor- und 
Zurückspulen läßt sich nach einem bestimmten Programm 
suchen, was allerdings sehr lange dauern kann. 

Eine Diskette kann ebenfalls mehrere Programme ent¬ 
halten. Das einfache Prinzip der Kassettenspeicherung ist 
aber auf der runden Magnetscheibe einer Diskette kaum zu 
verwirklichen. Des weiteren zeichnet sich ein Floppylauf- 
werk durch schnelle Zugriffszeiten auf alle Daten aus; das 
heißt ein Programm, das irgendwo auf der Diskette abge¬ 
legt ist, kann durch Angabe seines Namens sofort gefun¬ 
den und in den Speicher des Computers geladen werden. 
Dies bedarf einer geregelten Organisation, die es der 
Floppystation erlaubt, sich schnell und problemlos auf der 
Diskette zurechtzufinden. Zu diesem Zweck müssen sich 
auf der Magnetoberfläche Markierungen befinden, die 


dem Diskettenlaufwerk bei der Orientierung behilflich sind. 
Sie sind von Gerät zu Gerät verschieden und bestimmen 
das Format einer Diskette. Um die für die Floppy 1541 not¬ 
wendigen Markierungen auf eine Diskette zu bringen, muß 
diese formatiert werden. Vielleicht wissen Sie, daß die 
Floppystation einige Zeit dazu benötigt (etwa 90 Sekun¬ 
den). Sehen wir uns einmal kurz an, was dabei mit der Dis¬ 
kette geschieht. 

Die »Innereien einer Diskette 


Beim Formatieren wird die Magnetscheibe der Diskette 
in 35 (magnetische) Spuren aufgeteilt, die konzentrisch um 
das Mittelloch angeordnet sind. Sie erhalten von außen 
nach innen die Nummern 1 bis 35. Während sich die Disket¬ 
te dreht, kann der Schreib-/Lesekopf, von einem kleinen 
Motor geführt, auf jede dieser Spuren gelangen, um dort 
Daten zu schreiben oder zu lesen. Da eine solche Spur 
(englisch: Track) als Speichereinheit noch zu groß ist, um 
bequem bearbeitet werden zu können, wird sie in noch klei¬ 
nere Untereinheiten zerlegt: die Sektoren. Ihre Anzahl kann 
von Spur zu Spur unterschiedlich sein, da deren Länge auf 
der Diskette von außen nach innen abnimmt. Pro Spur wer¬ 
den die Sektoren ab Null aufsteigend numeriert. Jeder Sek¬ 
tor kann somit durch eine Spur- und Sektornummer eindeu¬ 
tig bestimmt werden. 

Auch innerhalb eines Sektors herrscht eine strenge Ord¬ 
nung. Nach einem Vorspann (Kopf oder auch »Header«), 
der wichtige Daten über den entsprechenden Sektor ent¬ 
hält, folgt der Datenblock. Hier werden nun endlich die 
Daten abgelegt. Einen ausführlichen Kurs darüber finden 
Sie übrigens in unserem Floppy-Sonderheft 9/87. Jeder 
Seklo,- kann 254 Byte aufnehmen. Da ein Programm in der 
Regel länger ist, wird es beim Speichern auf mehrere 
Sektoren verteilt. 

Anschließend wird beim Formatieren auf der Diskette ein 
Inhaltsverzeichnis angelegt, das die Namen der zukünftig 
gespeicherten Dateien aufnehmen wird. Daneben wird es 
wichtige Daten enthalten, die der Floppystation bei der Su¬ 
che nach einer bestimmten Datei behilflich sind. Das Direc¬ 
tory, wie das Inhaltsverzeichnis einer Diskette auch ge¬ 
nannt wird, benötigt die gesamte Spur 18. 

Man wird verstehen, daß bei all der komplizierten Organi¬ 
sation bereits ein geringer Fehler (oft genügt ein falsches 
Bit) größte Probleme ergeben kann. Wie bei der Speiche¬ 
rung auf der Datasette trifft die Floppy 1541 deshalb einige 
Vorkehrungen, um eventuelle Fehler möglichst zu vermei¬ 
den. 

Wird zum Beispiel infolge eines SAVE-Befehles vom 
Computer ein Sektor auf einer Diskette mit Daten beschrie¬ 
ben, wird sogleich automatisch überprüft, ob alle Bytes ord¬ 
nungsgemäß gespeichert wurden (VERIFY). Daneben 
werden, ähnlich wie bei der Kassettenspeicherung, Prüf¬ 
summen über die entsprechenden Daten erstellt und bei ei¬ 
nem Lesezugriff mit den geladenen Bytes verglichen. Man 
findet jeweils eine Prüfsumme im Kopf und im Datenblock 
eines Sektors. 

Man sieht, daß für die Datensicherheit gut gesorgt ist. 
Insbesondere das automatische, floppyinterne VERIFY 
beim Schreiben eines jeden Sektors verhindert, daß die 
Daten bereits fehlerhaft geschrieben werden. Doch trotz all 
dieser Vorkehrungen können Probleme bei der Datenspei¬ 
cherung auf einer Diskette entstehen. 

Obgleich die Ursachen eines Fehlers meist die gleichen 
sind (zum Beispiel fehlerhafte Disketten oder fremde Um¬ 
welteinflüsse), können sie in den verschiedensten Berei¬ 
chen auftreten, die die Floppy 1541 sorgsam zu unterschei¬ 
den weiß. Man faßt sie allgemein unter dem Begriff »Lese- 
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fehler« zusammen, da durch irgendwelche Leseprobleme 
einer Diskette gewisse Daten oder Markierungen nicht kor¬ 
rekt identifiziert werden können. Die Floppy 1541 kennt ins¬ 
gesamt 9 dieser Lesefehler, von denen 6 die allgemeine 
Bezeichnung »READ ERROR« haben. Sie treten nur beim 
Lesen von Daten auf. Zwei Fehlermeldungen tragen den 
Namen »WRITE ERROR«, da sie nur beim Schreiben von 
Daten, wie zum Beispiel bei SAVE, in Erscheinung treten. 
Wir haben sie in sortierter Reihenfolge in Tabelle 5 abge¬ 
druckt. Dort finden Sie auch den neunten Lesefehler mit 
dem Namen »DISK ID MISMATCH ERROR«. 

Diese Gruppe von Fehlern läßt sich in zwei Typen unter¬ 
teilen: die »Soft« und die »Hard«-Errors, was Sie ebenfalls 
der Tabelle entnehmen können. 

Obwohl alle Lesefehler größte Probleme bereiten, sind 
die Soft-Errors (»weiche« Fehler) in unserer Liste etwas 
harmloser als die Hard-Errors (»harte« Fehler). In den mei¬ 
sten Fällen können bei Fehlern dieses Typs die Daten des 
betroffenen Sektors noch relativ einfach und ohne gravie¬ 
rende Verluste gerettet werden. Ein »READ ERROR« der 
Nummer 22 weist beispielsweise darauf hin, daß der Hea¬ 
der eines Sektors zwar einwandfrei gelesen werden konn¬ 
te, die Floppystation aber den normalerweise folgenden 
Datenblock nicht gefunden hat. Die Meldung kann zum Bei¬ 
spiel lauten: 

22, READ ERROR,14,09 


besonders tragisch, da sich die Daten, zum Beispiel ein 
Programm, in der Regel noch im Speicher des Computers 
befinden. Man kann also einen weiteren Speicherversuch 
auf einer anderen Diskette vornehmen. Hat man auf diese 
Weise eine »Problemdiskette« erkannt, ist es ratsam, die 
restlichen Dateien von dieser Diskette auf einen neuen Da¬ 
tenträger zu kopieren. Vorsicht ist in solchen Fällen besser 
als der Verlust sämtlicher Daten auf der schadhaften Dis¬ 
kette. 

Harte Probleme mit »harten« Fehlem 


Bei den »Soft-Errors« ist der Header (Kopf) eines Sektors in 
der Regel noch in Ordnung. Der Sektor kann auf der Disket¬ 
te also noch gefunden werden. Handelt es sich jedoch um 
einen »Hard-Error«, ist schon der Vorspann des betreffen¬ 
den Sektors nicht mehr lesbar, wie es beispielsweise der 
Fehler mit der Nummer 20 anzeigt: 

20, READ ERROR,14,09 

Er besagt, daß die Floppy 1541 den Kopf eines Sektors 
nicht ausfindig machen konnte. Der Fehler kann sich dabei 
entweder auf nur einen Sektor oder eine ganze Spur bezie¬ 
hen. Ist die gesamte Spur betroffen, sind die darauf befind¬ 
lichen Daten normalerweise für immer verloren, wie es 


Meist hat hier eine wichtige Markierung im Datenblock 
nicht den richtigen Wert, der Datenblock selbst ist aber kor¬ 
rekt. Mit etwas Programmieraufwand kann der Sektor noch 
gerettet werden, was uns an dieser Stelle aber nicht genau¬ 
er interessieren soll. 

Der »FehSerteufek schlägt zu 


Bei den Fehlermeldungen bekommen nun auch die beiden 
Zahlen hinter dem Klartext, die bisher meistens auf Null 
standen, eine Bedeutung. Sie geben die Spur- und Sektor¬ 
nummer des Blocks an, in dem der Fehler aufgetreten ist. 
In unserem Beispiel ist es der Sektor 9 auf Spur 14. Wir wer¬ 
den diesen Sektor ab jetzt weiterhin als Beispiel verwen¬ 
den. 

Meldet die Floppystation 

23, READ ERROR,14,09 

handelt es sich ebenfalls um einen »Soft-Error«. Eine fal¬ 
sche Prüfsumme war hier die Ursache. Wie Sie schon wis¬ 
sen, enthält ein Sektor zwei Prüfsummen. Hier ist die Prüf¬ 
summe des Datenblocks gemeint, die mit der der gelese¬ 
nen Datenbytes nicht übereinstimmt. In diesem Fall besteht 
die Hoffnung, daß lediglich die Prüfsumme falsch ist, die 
Daten jedoch korrekt geschrieben wurden. Einige Pro¬ 
gramme, die sich mit der Diskettenbehandlung beschäfti¬ 
gen, wie zum Beispiel bestimmte Kopierprogramme, erlau¬ 
ben es deshalb, einen Sektor trotz eines »23, READ ER¬ 
ROR« zu lesen, um die Prüfsumme anschließend zu korri¬ 
gieren. Meist sind jedoch fehlerhafte Datenbytes die Sün¬ 
der. Die eben beschriebene Korrektur bleibt dann ohne Er¬ 
folg. 

Ein Prüfsummenfehler im Sektor-Kopf kann ohne großen 
Aufwand nicht mehr repariert werden. Er hat einen harten 
Lesefehler zur Folge: 

27, READ ERROR,14,09 

Ein weiterer »Soft-Error« ist vom Typ »WRITE ERROR«. 
Ertritt bereits beim Schreiben von Daten auf. Wurde bei der 
Vergleichskontrolle eines eben gespeicherten Sektors ein 
Fehler in den Datenbytes entdeckt, meldet die Floppy¬ 
station: 

25, WRITE ERROR,14,09 

Oftmals liegt dieser Meldung eine fehlerhafte Magnetbe¬ 
schichtung der Diskette zugrunde. Doch ist der Fehler nicht 


Nummer 

Fehler 

Typ 

Bedeutung 

20 

READ ERROR 

hard 

Blockheader nicht gefunden 

21 

READ ERROR 

hard 

Sync-Markierung nicht gefunden 

22 

READ ERROR 

soft 

Datenblock nicht gefunden 

23 

READ ERROR 

soft 

Prüfsummenfehler in Datenblock 

24 

READ ERROR 

hard 

Fehler bei der GCR-Recodierung 


WRITE ERROR 

soft 

Fehler beim Verifizieren 

READ ERROR 

hard 

Prüfsummenfehler im Sektor- 
Header 

28 

WRITE ERROR 

hard 

Block zu lang; nächster Block wur¬ 
de überschrieben (Hardware- 
Defekt) 

29 

DISK ID MISMATCH 

hard 

falsche ID im Sektor-Header 


Tabelle 5. Lesefehler - der Schrecken aller Programmierer. 
Nicht immer liegt es an einer defekten Diskette. 


auch beim »21, READ ERROR« der Fall ist. Hier ist es der 
Floppystation unmöglich, eine für das Lesen und Schrei¬ 
ben wichtige Markierung zu finden. Auch bei diesem Fehler 
braucht man sich keine Hoffnung auf eine Rettung der Da¬ 
ten machen. 

Ein 

29, DISK ID MISMATCH,14,09 

tritt auf, wenn die »ID« (»IDentifizierung«) eines Sektors 
nicht mit der ID der Diskette übereinstimmt, die Sie beim 
Formatieren angegeben hatten. Bei diesem Fehler ist meist 
ein zerstörter Sektor-Header die Ursache. 

Relativ selten ist der Lesefehler mit der Nummer 24 zu 
finden. Er bezieht sich auf die Codierung der Daten, bevor 
sie in einen Sektor auf der Diskette geschrieben werden. 
Aus organisatorischen Gründen werden die Daten nicht im 
Originalzustand gespeichert, sondern zuvor in einer gewis¬ 
sen Weise codiert. Nach dem Lesen müssen sie selbstver¬ 
ständlich wieder recodiert, das heißt zurückübersetzt wer¬ 
den. Im Normalfall entstehen hierbei keine Probleme. Im 
Fehlerfall können Werte auftreten, die nicht entziffert wer¬ 
den können. Die Antwort der Floppy 1541 lautet dann: 

24, READ ERROR,14,09 

Ebenso rar wie der Fehler 24 ist der zweite »WRITE ER¬ 
ROR« in der Tabelle 5. Er hat die Nummer 28. Hier wurde 
ein Sektor von einem davor befindlichen einfach über¬ 
schrieben, so daß die Floppystation die Anfangsmarkierun- 
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gen dieses Sektors nicht mehr finden kann. Dieser Fehler 
kann auftreten, wenn sich die Diskette zu schnell dreht, weil 
die Geschwindigkeitsregelung des Laufwerkmotors ausge¬ 
fallen ist. Die Sektoren werden dann zu »lang« und über¬ 
schreiben sich gegenseitig. 


Nummer 

Fehler 

Bedeutung 

65 

NO BLOCK 

Block bereits belegt 

66 

ILLEGAL TRACK 

Zugrift auf ungültige Spur oder 


OR SECTOR 

Sektor 

67 

ILLEGAL TRACK 

Zeigerbytes In Datenblock zeigen 


OR SECTOR 

auf ungültige Spur oder Sektor 

70 

NO CHANNEL 

Kanal bereits belegt 

71 

DIR ERROR 

zerstörte BAM 


Tabelle 6. Außenseiter: Diese Lesefehler passen in keine 
der vier Gruppen 


Bleiben zu guter Letzt noch einige Fehlermeldungen, die 
nicht so recht in eine unserer Gruppen passen wollen. Drei 
dieser Fehlermeldungen werden bei der normalen Anwen¬ 
dung der Floppy 1541 wohl nicht auftreten. Der fortgeschrit¬ 
tene Programmierer, der einige Direkteingriffe auf einer 
Diskette vornimmt, wird Ihnen öfter begegnen. Das sind die 
Fehler mit den Nummern 65,66 und 71, die wir hier nicht nä¬ 
her erläutern wollen. Sie sind aber in unserer Tabelle 6 den¬ 
noch aufgelistet. Lediglich der Fehler der Nummer 67 kann 
häufiger auftreten. Die Meldung lautet folgendermaßen: 


67, ILLEGAL TRACK OR SECTOR,14,09 

Da ein Programm meist länger ist als 254 Byte, muß es 
auf mehrere Sektoren verteilt werden. Damit die Floppy- 
station nach dem Lesen eines Sektors weiß, in welchem 
Folgesektor das Programm oder die Datei fortgesetzt wird, 
enthalten die ersten zwei Byte des Datenblocks eines Sek¬ 
tors stets die Spur- und Sektornummer des darauffolgen¬ 
den Programmteils. Durch unsachgemäßen Zugriff auf die¬ 
sen Sektor ist es möglich, daß dieser Zeiger auf einen Sek¬ 
tor zeigt, der überhaupt nicht existiert. Spur 75 ist beispiels¬ 
weise bei der Floppy 1541 nicht vorhanden, da die höchste 
Spur die Nummer 35 besitzt. Ein »ILLEGAL TRACK OR 
SECTOR«-Fehler entsteht. Wichtig ist dabei noch zu wis¬ 
sen, daß auch eine unerlaubte Sektornummer diese Feh¬ 
lermeldung zur Frage hat. Hier müssen zur Unterschei¬ 
dung die Spur- und Sektorangaben beachtet werden. 

An dieser Stelle ist es bestimmt kein »Fehler«, das Thema 
der Fehlermeldungen zu beenden. Manche Bereiche, die 
wir in diesem Bericht angeschnitten haben, werden sicher¬ 
lich Fragen offenlassen. Zu ihrer Beantwortung weisen wir 
auf einschlägige Literatur wie »Die Floppy 1541« von 
Markt&Technik hin, die sich wesentlich intensiver mit die¬ 
sem oder jenem Problem der Floppy 1541 auseinanderset¬ 
zen kann. Die große Anzahl an Fehlermeldungen läßt die 
Komplexität der 1541 nur erahnen. Vielleicht ist das aber 
ein Ansporn, sich näher mit diesem interessanten Periphe¬ 
riegerät zu beschäftigen. (Michael Thomas/ef) 


Floppyfehler nbfangen 

Manchem Programmierer sträuben sich die Haare, wenn er 
das Wort »Fehlermeldung« hört. Manchmal kann diese Einrichtung des Computers 
jedoch sehr sinnvoll angewendet werden. 


T ritt während der Programmausführung ein Fehler auf, 
so bricht der Computer mit einer mehr oder weniger 
deutlichen Fehlermeldung ab. Für Fehler beim Zugriff 
auf die Diskette gilt dies jedoch nicht. Hier blinkt lediglich 
eine Leuchtdiode am Laufwerk, und das Programm läuft oft 
weiter. Dies können wir für ein programmiertes Abfangen 
solcher Fehler ausnutzen. Allerdings benötigen wir dazu 
mehr Informationen. Das Floppylaufwerk hält diese für uns 
bereit - wir holen sie mit der Anweisung 
10 OPEN 14,8,15:INPUT #14,A,B$,C,D:CLOSE 14 
ab. Die Zeile geben Sie bitte mit der Zeilennummer ein. 
Nach Eingabe von RUN wird die Fehlermeldung auf dem 
Bildschirm ausgegeben. Das Blinken am Laufwerk hört 
auf, und in den Variablen sind folgende Informationen ge¬ 
speichert: 

A: Nummer des Fehlers C: Spur 

B$: Fehlerbezeichnung im Klartext D: Sektor 
Jedem Fehler ist eine bestimmte Nummer zugeordnet. 
So hat die Meldung »File not found« die Nummer 62. »OK« 
und 0 sind Kennzeichen eines fehlerfreien Zugriffs auf die 
Diskette. Durch die Angabe der Spur- und Sektornummer 
erfahren wir außerdem, an welcher Stelle auf der Diskette 
der Fehler aufgetreten ist. Diese Angaben werden jedoch 
erst bei bestimmten Diskettenzugriffen interessant. 

Beispiele für die Behandlung der häufiger auftretenden 
Fehler sind in unserem Programm »Floppyfehler« (Listing 1) 
dargestellt. 

Das Programm arbeitet mit sequentiellen Dateien: Ein¬ 


gäbe und Speicherung von Adressen auf Diskette. Zu Be¬ 
ginn des Programms muß ein Dateiname angegeben wer¬ 
den. Befindet sich unter diesem Namen bereits eine Datei 
auf der Diskette, so werden alle gespeicherten Adressen 
auf dem Bildschirm ausgegeben. Wenn die Datei noch 
nicht existiert, können Sie Adressen eingeben, die unter 
dem gewählten Namen auf Diskette gespeichert werden. 
Das Programm ist nicht sehr komfortabel. Es dient auch nur 
zur Demonstration der Fehlerbehandlung. 

Im Teil A (Zeile 1000 bis 1530) wird eine Tabelle mit allen 
Fehlernummern angelegt, auf die das Programm reagieren 
soll. Die Variable AF enthält die Anzahl der Nummern. Au¬ 
ßerdem muß an dieser Stelle der OPEN-Befehl für das Le¬ 
sen der Fehlermeldung stehen. 

Teil E (ab Zeile 9000) holt die Fehlermeldung und ver¬ 
gleicht sie mit den gespeicherten in der Tabelle. Die ersten 
vier Fehler werden gleich hier abgefangen. Dies sind Feh¬ 
ler, deren Behandlung unabhängig vom Programm gleich 
sind. So wird auf das Fehlen einer Diskette im Laufwerk 
meist mit der Aufforderung, eine solche einzulegen, rea¬ 
giert. Ist die Fehlernummer in der Tabelle nicht enthalten, 
bricht das Programm ab. 

Dateien werden wie Programme mit ihrem Namen auf 
der Diskette gespeichert. Durch die OPEN-Anweisung in 
Teil B teilen wir dem Computer unter anderem mit, welche 
Datei wir lesen möchten. Interessant sind in diesem Pro¬ 
gramm nach der automatischen Fehlerbehandlung nur 
zwei Meldungen. 
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1. Fehlernummer 0: 

Die Datei ist vorhanden. Sie wird daraufhin gelesen und 
die Adressen auf dem Bildschirm ausgegeben. 

2. Fehlernummer 62: 

Die Datei ist nicht vorhanden. Wir können gleich mit der 
Eingabe der Adressen über die Tastatur beginnen. 

Alle anderen Fehler sind schon im Teil E abgefangen wor¬ 
den. Zur Überprüfung, ob diese Fehler beseitigt wurde, 
wird die OPEN-Anweisung erneut ausgeführt. 

Teil C (ab Zeile 2200) befaßt sich mit der Eingabe der 
Adressen. Die Gestaltung dieses Teils ist abhängig von 
dem zu lösenden Problem. Wir haben deshalb dort keine 
besondere Fehlerbehandlung vorgesehen. 

Mit der OPEN-Anweisung in Teil D (ab Zeile 2400) teilen 
wir dem Computer mit, unter welchem Namen die Adres¬ 
sen gespeichert werden sollen. Wiederum sind zwei Mel¬ 
dungen interessant. 


1. Fehlernummer 0: 

Die Datei ist nicht vorhanden. Wir geben die Adressen 
deshalb gleich aus und legen damit die Datei an. 

2. Fehlernummer 63: 

Die Datei existiert bereits. In diesem Fall geben wir ihr ei¬ 
nen anderen Namen. Der alte Name wird lediglich um den 
Zusatz ». BAK« erweitert. Tritt dann bei der Speicherung der 
Adressen ein schwerwiegender Fehler auf (Stromausfall), 
so haben Sie immer noch die alte Datei (mit dem Zusatz). 

Teil A und Teil E können Sie fast unverändert in Ihre eige¬ 
nen Programme übernehmen. Ändern Sie den Inhalt von 
AF entsprechend der von Ihnen gewählten Anzahl von Feh¬ 
lernummern. Die automatisch in Teil E abzufangenden 
Fehler müssen die ersten in der Liste der DATA-Zeilen sein. 
Programmieren Sie für jeden dieser Fehler im Teil E ein ent¬ 
sprechendes Unterprogramm und ergänzen Sie die Reihe 
der Sprungadressen in Zeile 9100. (Peter Aurich/ef) 


1000 

REM *** TEIL A 

<001 > 

1001 

: 

<215> 

1010 

AF=6 

<032> 

1020 

DIM EN < AF) 

<203> 

1100 

DATA 26 

<086> 

1110 

DATA 72 

<072> 

1120 

DATA 74 

< 114> 

1130 

DATA 64 

< 116> 

1140 

DATA 62 

<094> 

1150 

DATA 63 

< 120> 

1500 

FOR 1=1 TO AF 

<150> 

1510 

READ EN <I) 

<007> 

1520 

NEXT I 

<078> 

1530 

OPEN 14,8,15 

< I46> 

1540 

: 

<248> 

1600 

REM *** TEIL B 

<099> 

1601 

: 

<053> 

1610 

DIM N*(300),S*(300>,0$(100),T*(100) 

<092> 

2000 

AA=0 

<030> 

2100 

PRINT CHRSU47) 

<097> 

2110 

INPUT "DATEINAME: ";DN$ 

<028> 

2120 

PRINT 

<190> 

2130 

OPEN 1,8,8,DN*+",S,R" 

<097> 

2140 

GOSUB 9000 

< 12B> 

2150 

IF A=62 THEN 2300 

<215> 

2160 

IF A=0 THEN 2200 

<061 > 

2170 

CLOSE 1 

<149> 

2180 

GOTO 2100 

<112> 

2190 

: 

< 134> 

2200 

REM *** TEIL 3 

< 130> 

2210 

INPUT#1,AA 

< 135> 

2220 

FOR 1=1 TO AA 

<103> 

2230 

INPUT#1,N*(I),S*<I>,0*(I>,T*(I) 

< 134> 

2240 

PRINT N*<I) : PRINT S*(I> 

< 165> 

2250 

PRINT 0*<I> : PRINT T*<I) 

< 187> 

2260 

PRINT 

<074> 

2270 

NEXT I 

<066> 

2300 

CLOSE 1 

<023> 

2310 

AA=AA+1 

<0B0> 

2320 

INPUT "NAME: ";N*<AA> 

< 134> 

2330 

INPUT "STRASSE: ";S*(AA) 

< 140> 

2340 

INPUT "ORT: ";0*<AA) 

<081 > 

2350 

INPUT "TELEFON: ";T*(AA> 

<159> 

2360 

PRINT 

<176> 

2370 

INPUT "WEITER MACHEN (J/N)";E* 

<069> 

23B0 

IF E*="J" THEN GOTO 2310 

< 136> 

2390 

: 

<080> 

2400 

REM *** TEIL D 

< 145> 

2401 

: 

<091 > 

2410 

OPEN 1,8,8,DN*+",S,W" 

< 133> 

2420 

GOSUB 9000 

< 154> 

2430 

IF A=0 THEN 2600 

<081 > 

2440 

CLOSE 1 

< 165> 

2450 

IF A< >63 GOTO 2400 

< 180> 

2500 

PRINT#14,"S:"+DN*+".BAK" 

<090> 

2510 

PR I NT# 14, " R: " +DN$+". BAK= " +DN* 

<059> 

2520 

GOTO 2400 

<246> 

2600 

PRINTttl,AA 

<097> 

2610 

FOR 1=1 TO AA 

<241 > 

2620 

PRINT#1,N*(I):PRINT#1,S*CI) 

<006> 

2630 

PRINT#1,0$(I):PRINT#1,T*(I) 

<113> 

2640 

NEXT I 

<184> 


2650 CLOSE 1 : CLOSE 14 
2660 PRINT "PROGRAMM BEENDET" 

3000 END 
3010 : 

9000 REM *** TEIL E 

9001 : 

9010 INPUT#14,A,B*,C,D 
9020 IF A=0 THEN RETURN 
9030 PRINT 
9040 19=1 

9050 IF EN<19)=A THEN 9100 
9060 19=19+1 

9070 IF I9<=AF THEN 9050 

9080 PRINT A;" "; B*; C2SPACE}"; "SPUR: "; C; " 
SEKTOR:";D 

9090 STOP : REM PROGRAMMABBRUCH 
9100 ON 19 GOTO 9200,9300,9400,9500 
9110 Nr; TURN 
9120 : 

9200 REM *** FEHLERMELDUNG 1 
9210 PRINT "DIE DISKETTE IST SCHREIBGESCHU 
ETZT" : PRINT 

9220 PRINT "WENN SIE MIT DER DISKETTE ARBE 
ITEN WOLLEN" 

9230 PRINT "£2SPACE>DANN ENTFERNEN SIE DEN 
SCHUTZ" 

9240 GOSUB 9900 
9250 RETURN 
9260 : 

9300 REM *** FEHLERMELDUNG 2 
9310 PRINT "DIE DISKETTE ODER DAS INHALT9V 
ERZEICHNIS SIND VOLL" 

9320 PRINT "£2SPACE>LEGEN SIE EINE ANDERE 
DISKETTE EIN" 

9330 GOSUB 9900 
9340 RETURN 
9350 : 

9400 REM *** FEHLERMELDUNG 3 
9410 PRINT "ES BEFINDET SICH KEINE FORMATT 
IERTE" 

9420 PRINT "<2SPACE>DISKETTE IM LAUFWERK" 
9430 GOSUB 9900 
9440 RETURN 
9450 : 

9500 REM »** FEHLERMELDUNG 4 
9510 PRINT "DIESE DATEI EXISTIERT BEREITS 
ALS PROGRAMMDATEI" 

9520 PRINT "C2SPACETAUF DER DISKETTE“ 

9530 PRINT "WAEHLEN SIE EINEN ANDEREN NAME 
N" 

9540 GOSUB 9900 
9550 RETURN 
9560 : 

9900 REM »** TASTE ABWARTEN 
9910 PRINT : PRINT "WENN FERTIG - TASTE DR 
UECKEN“ 

9920 GET E* : IF E*='"' THEN 9920 
9930 RETURN 
9940 : 


<150> 

<155> 

<208> 

<192> 

<145> 

<087> 

<223> 

<027> 

<242> 

<213> 

< 124> 
<192> 
< 212 > 

<084> 
<106> 
<081 > 
< 022 > 
<206> 

< 174> 

<185> 

<004> 

<072> 

<004> 

< 164 > 

< 092 > 

< 028 > 

<1647 

< 169> 
<094> 
<254> 
<1B2> 

< 136> 

< 010 > 

<071 > 
<194> 
<098> 
<026> 
<246> 

< 114> 
<037> 

<044> 

<050> 

< 210 > 

< 13B> 
<219> 

<228> 

<035> 

<080> 

<008> 


Listing 1. Abfangen von Floppyfehlern. 

Bitte mit dem Checksummer (Seite 159) eingeben. 
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So madien Sie 
Ihre Programme schneller 


Basic-Programme können nach drei Gesichts¬ 
punkten optimiert werden: strukturiert und gut 
lesbar, schnell oder speicherplatzsparend. In die¬ 
sem Beitrag zeigen wir Ihnen, wie Ihre Basic-Pro¬ 
gramme durch geschickte Programmierung 
schneller werden. 

E s gibt einige Dinge, die man sehr wohl einzeln, aber 
nicht alle gleichzeitig haben kann. Wirtschaftswachs¬ 
tum, Inflation und niedrige Arbeitslosigkeit lassen sich 
eben nicht unter einen Hut bringen. 

Beim Programmieren gibt es in einer höheren Sprache 
wie Basic ebenfalls so ein magisches Dreieck: strukturierte 
Programme, minimaler Speicherbedarf und kürzere Lauf¬ 
zeiten. 

Gut lesbare und klar gegliederte Programme brauchen 
oft viel Speicherplatz und sind relativ langsam. Deswegen 
soll dieser Beitrag Sie zum Experimentieren anregen, Ihre 
Programme zu beschleunigen. 

Basic ist nicht gleich Basic 


Als erstes wollen wir einen einfachen aber typischen Pro¬ 
grammablauf überlegen, den man in mehreren Varianten 
programmieren kann. Übrigens: Wegen der besseren Les¬ 
barkeit schreiben Sie die nachfolgenden Basic-Zeilen bes¬ 
ser mit Leerstellen zwischen den Befehlen. 

Ich weiß, es geht auch kürzer, aber bei meinen Experi¬ 
menten spielt Speicherplatz keine Rolle und außerdem ha¬ 
be ich noch einen Hintergedanken, den ich aber erst später 
erklären kann. Nicht zuletzt will ich dadurch erreichen, daß 
die Laufzeiten der Programme mit denen bei Ihnen über¬ 
einstimmen. 

Schalten Sie bitte alle Programmierhilfen (wie beispiels¬ 
weise Hyper-Basic, Simonä Basic) und Disketten- 
Beschleuniger aus, denn sie können die Ablaufgeschwin¬ 
digkeit der Programme verändern. 

Der C64 hat eine interne Uhr, deren Zeit abgefragt, aus¬ 
gedruckt und somit zur Zeitmessung herangezogen wer¬ 
den kann. Im Befehlssatz der Commodore-Handbücher fin¬ 
den Sie dazu die beiden Funktionen TI und TIS. Mein Zeit¬ 
messungsprogramm besteht aus zwei Zeilen. 

Die »Stoppuhr« wird gestartet mit: 

10 TI$="000000" 

Sie wird am Ende des Programmes gestoppt mit: 

1000 PRINT TI/60 " SEKUNDEN" :END 

Zwischen diesen beiden Zeilen plazieren wir die Prüflin¬ 
ge, das heißt die Programme, deren Laufzeit wir messen 
wollen. Zur Prüfung geben wir erst die Zeile 15 mit einer ein¬ 
fachen Verzögerungsschleife ein. 

15 FOR T=1 T0 100:NEXT T 

Dieses Programm hat eine Laufzeit von 0,13 Sekunden. 

Löschen Sie bitte wieder die Zeile 15. Als Programm, das 
wir in mehreren Versionen vorstellen wollen, habe ich mir 
einen Ablauf ausgesucht, der auch optisch verfolgbar ist. 
Auf dem Bildschirm soll nämlich der Buchstabe A gleich 
374mal nebeneinander gedruckt werden. 


Die Zahl 374 hat nichts Magisches an sich. Es sind ganz 
einfach 17 Zeilen voller »A’s« auf dem Bildschirm. 17 Zeilen 
lassen uns genug Platz, um die gestoppte Zeit darunter gut 
lesbar anzuzeigen. 

In der Version 1 des Programms verwenden wir POKE- 
Befehle, mit denen wir das A und die dazugehörige Farbe 
auf den Bildschirm bringen, das heißt in den Bildschirm¬ 
speicher (Video-RAM) und den Farbspeicher (Color-RAM). 
Beim C64 sind es die Speicherzellen 1024 und 55296. 
(Sollte Ihnen diese Vorgehensweise nicht ganz klar sein, 
dann schauen Sie bitte in den Commodore-Handbüchern 
nach - es ist dort gut beschrieben.) Der Buchstabe A hat 
den Bildschirm-Codewert 1. Als Farbe wähle ich die »Nor¬ 
malfarbe«. Der Farbcode für Blau ist 14. Das Programm be¬ 
ginnt mit dem Löschen des Bildschirms (Zeile 20) und PO- 
KEt dann in Zeile 40 das erste A in den ersten Platz des Bild¬ 
schirms: 

20 PRINT CHR$ (147) 

40 POKE 1024+Z:P0KE 55296+Z,l4 

In Zeile 14 finden Sie zusätzlich eine Variable »Z«. Wie 
geplant, soll das A 374mal gePOKEt werden. Also müssen 
wir die Zahl der Speicherzelle laufend um 1 erhöhen, damit 
das A nicht stets an die gleiche Bildschirmstelle geschrie¬ 
ben vu.'.d. Dazu erfinden wir die Variable Z, die zur Spei¬ 
cherzelle addiert wird. Wir setzen Z am Anfang des Pro¬ 
gramms (in Zeile 30) auf Null und zählen es in Zeile 50 um 
1 weiter: 

30 Z=0 
50 Z=Z+1 

Als nächstes müssen wir prüfen, ob Z den Schlußwert 
374 erreicht hat. Wenn nicht, dann soll der nächste POKE- 
Befehl ausgeführt werden, das heißt wir springen auf Zeile 
40 zurück. Ist dies 374mal geschehen, springt der Compu¬ 
ter zu Zeile 1000, in der die Zeit gestoppt und auf dem Bild¬ 
schirm ausgegeben wird. Also: 

60 IF Z=374 THEN 1000 
70 GOTO 40 

Ich schlage vor, daß Sie das kleine Programm noch ein¬ 
mal LISTen, damit Sie es komplett sehen können. 

Die auf dem Bildschirm erscheinende Laufzeit wird nur 
davon beeinflußt, was zwischen den Zeilen 10 und 1000 
steht. Sie können vor der Zeile 10 dem Programm hinzufü¬ 
gen, was Sie wollen. 

Dreifacher Ersatz für »PRINZ AT« 


Ein erster Probelauf mit RUN bringt das gewünschte Er¬ 
gebnis, nur eines ist noch unschön: Der PRINT-Befehl in 
Zeile 1000 druckt uns die Zeit oben in die 2. Zeile, wo sie 
schlecht erkennbar ist. Wir könnten sie in einer anderen 
Farbe drucken, aber ich habe einen besseren Vorschlag. 

Wir brauchen ein Rezept, um mit einem PRINT-Befehl an 
einem ganz bestimmten Platz auf dem Bildschirm drucken 
zu können. Einige Basic-Dialekte kennen den Befehl 
»PRINT AT«. Welche Möglichkeit bietet uns das Basic von 
Commodore? 

'1) PRINT"(Cursor Down](Cursor Right)" 

2) PRINT TAB(X) 
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3) PRINT SPC(X) 

Um zum Beispiel an den 3ten Platz der 20ten Zeile die 
Zeit zu drucken, müßten wir 18mal das inverse »Q« für 
»Cursor-abwärts« und einmal »Cursor-rechts« eingeben. 

Mit TAB(X) geht es besser. Wir haben nur ein Problem, 
daß nämlich der höchste zulässige Wert für X nur 255 ist (X 
nennt man das »Argument«). Wir müssen deshalb zwei 
TAB-Befehle einfügen, um einen Abstand von 400 Leerstel¬ 
len zu erzeugen. 

1000 PRINT TAB (255) TAB (155) TI/60"SEKUNDEN":END 

Bei SPC(X) gilt dieselbe Begrenzung auf 255 für das Ar¬ 
gument. Eine doppelte Verwendung von SPC geht natür¬ 
lich auch, allerdings zählt SPC nicht vom Anfang der Zeile, 
sondern ab der letzten Cursor-Position. Durch Rechnen 
oder einfach durch Probieren finden wir die Gesamtzahl 
von 397, das ergibt: 

1000 PRINT SPC (255) SPC (142) TI/60 "SEKUNDEN": 
END 

Es gibt noch eine dritte Methode, um PRINT AT zu simu¬ 
lieren. 

In der Speicherzelle 214 kann die Zahl einer Zeile hinein- 
gePOKEt werden, auf die mit einem nachfolgenden PRINT 
der Cursor gesetzt wird. Das gleiche gilt für die Position in 
einer Zeile mit der Speicherzelle 211. Versuchen Sie es mit 
der direkten Eingabe: 

P0KE 2l4,8:PRINT:P0KE 211,4:PRINT"A" 

Das druckt den Buchstaben A in die 4te Spalte auf der 
9ten Zeile. Für unseren Anwendungsfall in Zeile 1000 müs¬ 
sen wir die Zahl 18 in die Speicherzelle 214 POKEn, die 
Speicherzelle 211 können wir vernachlässigen. 

1000 POKE 214,18:PRINT:PRINT TI/60"SEKUNDEN":END 

Alle drei Methoden sind gleichwertig, sowohl in der Aus¬ 
wirkung als auch beim Speicherbedarf. Ich bleibe im fol¬ 
genden bei der »214-Methode«. 

Zurück zur Version 1 des Testprogramms. Nach RUN er¬ 
halten wir eine Laufzeit von 10,48 Sekunden. 

So wird's schneller 


Das Auffüllen des Bildschirms mit A’s geht recht langsam. 
Schon beim Zuschauen wird man ungeduldig. Der Teil in 
diesem Programm, welcher die Laufzeit am nachhaltigsten 
beeinflußt, ist die 374fache Wiederholung des POKE- 
Befehls. Bei einem POKE-Befehl ist die Umwandlung der 
Zahlen aus dem ASCII-Code sehr zeitaufwendig. Hoppla, 
was heißt denn das schon wieder, werden Sie jetzt sicher 
fragen. 

Jede Zahl, die hinter einem POKE-Befehl steht, wird an¬ 
fangs in Form von vier einzelnen ASCII-Codezahlen ge¬ 
speichert. Wenn das Programm abläuft, werden diese 
ASCII-Zahlen zuerst in ganze Zahlen, dann in Fließkomma- 
Zahlen umgewandelt (für den Fall, daß mit den Zahlen arith¬ 
metische Funktionen ausgeführt werden). Schließlich wer¬ 
den sie wieder in eine ganzzahlige POKE-Adresse umge¬ 
wandelt - und das Ganze in unserem Fall 374mal. 

Hier können wir die erste Verbesserung erreichen. Wenn 
wir eine so häufig vorkommende Zahl wie die POKE- 
Adresse in Zeile 40 am Anfang des Programms einer Varia¬ 
blen zuweisen, dann erfolgt die oben genannte Umwand¬ 
lungssequenz nur einmal, nämlich am Anfang des Pro¬ 
gramms. Das Programm muß dann nur 374mal den Wert 
der Variablen im Speicher suchen, und das geht viel 
schneller. Wollen Sie es probieren? Ändern Sie für unsere 
Version 2 die Zeilen 30 und 40. 

Die Anfangsadresse im Bildschirmspeicher definieren 
wir als Variable mit dem zutreffenden Namen »VIDEO«, die 
des Farbspeichers mit »FARBE«. 


In Zeile 30 erhalten wir die Werte: 

30 Z=0:VIDEO=1024:FARBE=55296 
Zeile 40 ergibt sich dann zwangsläufig: 

40 POKE VIDE0+Z,1:POKE FARBE+Z,l4 

Alles andere bleibt gleich. Das Ergebnis nach RUN: eine 
Laufzeit von 7,3 Sekunden. Wir haben also eine Verkür¬ 
zung der Zeit von zirka 3 Sekunden erzielt, das sind nicht 
weniger als 30 Prozent. 

Eine Beschleunigung von 30 Prozent ist schon gut, aber 
noch nicht alles, was wir erreichen können. Da die Methode 
der vordefinierten Variablen so effektiv ist, wollen wir sie auf 
alle oft verwendeten Zahlen des Programms anwenden. 
Neben Z, VIDEO und FARBE gibt es noch die 1 für den 
Buchstaben A und die 14 für die Farbe sowie den Schluß¬ 
wert 374 der Scheife. Sicher wissen Sie schon, wie es ge¬ 
macht wird. Wir ändern folgende Zeilen: 

30 Z=0: SCHLUSSWERT=374:VIDE0=1024:FARBE=55296: 
BUCHSTA=1:DRUCK=l4 

40 POKE VIDEO+Z, BUCHSTA:P0KE FARBE+Z,DRUCK 
60 IF Z=SCHLUSSWERT THEN 1000 

Das ist Version 3 des Programms mit einer Laufzeit von 
6,15 Sekunden. Wieder ergibt sich eine Verbesserung ge¬ 
genüber der zweiten Version. 

Bisher haben wir die Variablen wegen der guten Lesbar¬ 
keit mit langen und verständlichen Namen versehen. Das 
kostet natürlich Speicherplatz und Geschwindigkeit. Der 
Grund ist immer derselbe: Bei der Variablen VIDEO sind 
fünf Zeichen 374mal zu bearbeiten. Wenn wir die Variable 
nur »VI« nennen, sind erheblich weniger Zeichen zu bear¬ 
beiten. 

In Version 4 des Programms reduzieren wir alle langen 
Variab!°nnamen auf zwei Zeichen. 

30 Z=0: SC=374: VI=1024:FA=55296:BU=l:DR=l4 
40 POKE VI+Z,BU:POKE FA+Z,DR60 IF Z=SC THEN 1000 

Ergebnis: 5,63 Sekunden. Gegenüber der Version 1 des 
Programms haben wir jetzt schon eine Verbesserung von 
46 Prozent erreicht. 

Treiben wir das Spiel in Version 5 noch weiter und redu¬ 
zierten alle zweistelligen Variablennamen auf einstellige. 
Damit müßte das Programm noch schneller werden: 

30 S=374: V=1024: F=55296:B=1:D=16 
40 POKE V+Z,B:POKE F+Z,D60 IF Z=S THEN 1000 

Die erzielte Verbesserung ist zwar nicht überwältigend, 
aber meßbar. Der C64 braucht nun 5,51 Sekunden. 

Nun können wir eine erste generelle Regei für schnellere 
Basic-Programme aufstellen. 


Regel 1 


* Häufig vorkommende Zahlen, Adressen oder Variablen werden 
am Anfang des Programms vordefiniert. Dies ist besonders wichtig, 
wenn sie innerhalb von Schleifen verwendet werden. 

* Variablen, die sich im Lauf des Programms verändern, werden 
trotzdem vordefiniert. Achten Sie darauf, daß der gewählte Aus¬ 
gangswert nichts Negatives anrichten kann. 

» Die Zahl, die am häufigsten vorkommt, sollte als erste vordefiniert 
werden (damit sie schneller »gefunden« werden kann). 

* Variablennamen sollen möglichst einstellig, höchstens zweistellig 
sein. 


Halt, löschen Sie das Programm noch nicht! Wir liegen 
noch unter 50 Prozent mit unseren Verbesserungen. Was 
können wir am bisherigen Programm noch ändern? 

Überlegen Sie einmal, wie man Buchstaben noch auf 
den Bildschirm bringen kann. 

In Version 6 des Programms ersetzen wir die POKE- 
Befehle für die Buchstaben durch eine PRINT-Anweisung, 
die zudem noch den Vorteil hat, daß keine Farbanweisung 
nötig ist. Den Buchstaben A wollen wir in dieser Version zu- 
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nächst einmal mit seiner ASCII-Codezahl 65 angeben. Ein 
Semikolon setzt alle A’s hintereinander. 

40 PRINT CHR$(65); 

Für die Schleife brauchen wir nur die Variablen Z und S 
einzubinden: 

30 Z=0:S=374 

Alle anderen Zeilen bleiben unverändert. 

Nach RUN sehen wir als Ergebnis: 4,05 Sekunden. Das 
ist eine weitere Verbesserung von 1,5 Sekunden. Unser 
Programmbeispiel wird durch die Verwendung von PRINT 
statt POKE stark beschleunigt. Das funktioniert deswegen 
besonders gut, weil alle Buchstaben automatisch hinterein¬ 
ander gesetzt werden. Wenn wir jedesmal den Platz mit an¬ 
geben müßten, wohin gePRINTet werden soll, wäre der Vor¬ 
teil rasch verspielt. 

Die Anweisung PRINT CHR$(65) ist zwar gut lesbar, aber 
wir haben vorher gelernt, daß das Vordefinieren von Varia¬ 
blen schneller ist. In Version 7 machen wir das auch mit der 
PRINT-Variablen. 

30 Z=0: S=374: A$=CHR$(65) 

40 PRINT A$ 

Das Resultat ist wieder beeindruckend: 3,10 Sekunden. 
Das sind jetzt bereits 69 Prozent Verbesserung gegenüber 
der 1. Version. 

Sicher ist jedem die direkte PRINT-Anweisung mit Gän¬ 
sefüßchen am geläufigsten. Sie benötigt auch weniger 
Speicherplatz und macht sogar ein Vordefinieren unnötig. 
Wir wollen prüfen, ob die PRINT-Anweisung mit Gänsefüß¬ 
chen auch schneller ist. 

Ändern Sie für Version 8 die Zeilen 30 und 40: 

30 Z=0:S=374 
40 PRINT "A"; 

Erstaunlicherweise bringt das fast gar nichts. Das Ergeb¬ 
nis von 3,03 Sekunden ist nur 0,07 Sekunden schneller. Die 
Erlärung liegt darin, daß beide Darstellungen, CHR$(65) 
und "A", denselben ASCII-Code verwenden. Damit ist der 
einzige Unterschied zwischen den Versionen 7 und 8 die 
Gesamtanzahl der Zeichen im Programm. Fassen wir zu¬ 
sammen: 


Regel 2 


* ln Schleifen mit aneinandergereihten Druckanweisungen ist 
PRINT viel schneller als POKE. 

• Die PRINT-Variablen sollen entweder vordefiniert oder im 
Anführungszeichen-Modus eingesetzt werden. 


In der PRINT-Schleife (Zeile 40) und nachfolgender IF- 
Abfrage (Zeile 60) gibt es noch zwei Feinheiten. Das 
C64-Basic erlaubt es, statt IF...THEN GOTO... nur 
IF...THEN... zu schreiben, und das haben wir bisher auch 
gemacht. 

Man kann aber auch IF...GOTO... verwenden. Eigentlich 
ist nicht zu erwarten, daß zwischen den beiden Schreibar¬ 
ten ein Zeitunterschied besteht. Der Fall ist tatsächlich fast 
akademisch zu nennen, wie Version 9 unter Beweis stellt: 

60 IF Z=S GOTO 1000 

Laufzeit des C 64:3,0 Sekunden, also nur um 0,03 Sekun¬ 
den schneller. 

Version 10 ändert auch nur ganz wenig an der Ge¬ 
schwindigkeit, spart aber eine ganze Zeile und damit Spei¬ 
cherplatz. 

60 IF ZOS GOTO 40 

70 entfällt 

Ergebnis: 2,98 Sekunden Laufzeit - nur 0,02 Sekunden 
schneller. 


Regel 3 


* Bei Schleifen mit Sprunganweisungen Ist IF...GOTO schneller als 
IF...THEN 

* Prüfung auf Ungleichheit (< >) bietet Vorteile, wenn sie eine 
Zeile erspart. 


Für die Fortgeschrittenen unter Ihnen gebe ich noch eine 
weitere Anregung, die wir mit unserem Prüfprogramm nicht 
testen können. 

Eine Prüfung mit IF..THEN hängt oft von mehr als einer 
Bedingung ab. Zum Beispiel kann sie so lauten: 

100 IF (A=l AND B=2 AND C=3) THEN 999 
110 GOTO 50 

Zeile 100 prüft jedesmal, ob alle drei Bedingungen erfüllt 
sind. Erst nach dem THEN wird entschieden, ob das Pro¬ 
gramm auf Zeile 999 springt oder auf 110 weiterläuft. Neh¬ 
men wir an, A ist im 20sten Durchlauf erfüllt, B im 50sten 
Durchlauf, C aber erst im 300sten Durchlauf. Das Pro¬ 
gramm muß also 300mal alle drei Bedingungen nachprü¬ 
fen. Wenn wir die Zeile 100 so schreiben: 

100 IF C=3 THEN IF B=2 THEN IF A=1 THEN 999 
dann bricht das Programm 300mal die Prüfung nach dem 
C sofort ab und geht in 110 weiter. B und A werden erst dann 
zur Prüfung herangezogen, wenn C=3 ist. Es ist wohl ein¬ 
zusehen, daß diese Schreibweise schneller ist. 


Regel 4 


Bei IF...THEN-Prüfungen mit mehreren Bedingungen sollen diese 
Bedingungen in einzelnen IF...THEN-Prüfungen hintereinander ge¬ 
setzt werden. Dabei wird jene Bedingung an die erste Stelle ge- 
set~ ■ eiche am wahrscheinlichsten nicht erfüllt wird. 


Ich habe mit Absicht bisher die 374malige Wiederholung 
der Schleife mit der Zählvariablen Z hochgezählt und mit 
IF...THEN beziehungsweise IF...GOTO den Schlußwert ab¬ 
gefragt. Das gab mir die Gelegenheit, die Schnelligkeit die¬ 
ser Methode ganz auszureizen. Wir haben auch die ur¬ 
sprüngliche Laufzeit von 10,48 Sekunden auf.2,98 Sekun¬ 
den reduziert! 

Wir wollen noch eine andere Möglichkeit austesten, näm¬ 
lich die Schleife mit FOR...TO...NEXT zu programmieren. 

In Version 11 des immer noch gleichen Programms än¬ 
dern wir dazu die Zeilen 30, 50 und 60: 

30 F0R Z=1 T0 374 
50 NEXT Z 

60 entfällt 

Starten Sie diese Version. Huiiih -jetzt geht’s ab! Der C 64 
braucht nur noch 1,08 Sekunden. Gegenüber der 
IF...THEN-Schleife der Version 10 ist diese Version unge¬ 
fähr 2 Sekunden schneller, auf die Zeit der Version 1 bezo¬ 
gen sind es sogar 89 Prozent. 

Das einzige, was wir in der FOR...NEXT-Schleife noch 
verbessern können, ist die vielgeübte Praxis des Weglas¬ 
sens der Schleifenvariablen Z nach dem NEXT-Befehl. 

50 NEXT 

Der Geschwindigkeitsgewinn dieser Version 12 ist nicht 
sehr groß, nämlich nur etwa 0,1 Sekunden. Aber wir wollen 
diese Methode doch in die nächste Regel mit aufnehmen. 


Regel 5 


Schleifen sollen nicht mit IF..THEN, sondern mit FOR..TO..NEXT 
gebildet werden. Die Schleifenvariable nach NEXT soll dann weg¬ 
gelassen werden, wenn es nicht zu Verwechslungen mit anderen 
Schleifen führen kann. 
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Nun bin ich fast am Ende meines Beschleunigungsla¬ 
teins. Eines bleibt allerdings noch, nämlich die bisher hoch¬ 
gepriesene Lesbarkeit des Programms zu opfern. Ich hoffe, 
Sie haben bisher meinem Eingangshinweis Folge geleistet 
und alles schön mit Leerzeichen geschrieben. Das behal¬ 
ten wir zunächst noch bei, im Gegenteil, wir wollen die Les¬ 
barkeit noch erhöhen und REM-Erläuterungen einfügen. 
Ich schlage vor, die Version 13 so auszuschmücken: 

10 TI$="000000":REM UHR AUF NULL 

12 REM#############«############### 

13 REM# # 

14 REM#TEST-R0GRAMM# # 

15 REM# # 

16 REM############################# 

20 PRINT CHR$(l47);:REM ALLES LOESCHEN 

30 F0R Z=1 TO 374:REM 374 ZEICHEN 

40 PRINT"A"; 

50 NEXT 

999 REM ZEIT AUSDRUCKEN 
1000 P0KE 214,18:PRINT TI/60 "SEKUNDEN":END 

Das Programm sieht zwar sehr schön aus, aber REM- 
Erläuterungen kosten Zeit. Es ist um 0,2 Sekunden langsa¬ 
mer geworden. Deshalb entfernen wir alle REM-Zeichen 
und erhalten wieder Version 12. 

Machen wir nun einen Schritt in die andere Richtung und 
entfernen alle Leerstellen und Abstände. Mit dieser Ver¬ 
sion 14 möchte ich Ihnen zeigen, daß dies einen Einfluß auf 
die Laufgeschwindigkeit hat. 

10 TI$="000000" 

20 PRINTCHR$(l47); 

30 F0RZ=1T0374 

40 PRINT "A"; 

50 NEXT 

1000 P0KE214,18:PRINT:PRINTTI/60"SEKUNDEN":END 

Die neue Laufzeit: 0,98 Sekunden. 

In Version 15 treiben wir die Schrumpfung zum Extrem, 
indem wir das Programm mit einem Minimum an Zeilen 
schreiben, also möglichst viele Befehle in eine Zeile 
packen. 

Faszinierende Einzeller 


Sie wissen, die maximale Zeilenlänge beträgt 80 Zeichen 
beim C 64. Unser Programm können wir sogar in einer ein¬ 
zigen Zeile unterbringen - fast unglaublich, aber es geht. 
Sie müssen allerdings alle Abkürzungsmöglichkeiten aus¬ 
schöpfen, die das Commodore-Basic bietet. Im Anhang der 
Commodore-Handbücher finden Sie eine Liste aller Abkür¬ 
zungen beim Eintippen: <?> für PRINT, <C> und 
< SHIFT H > fürCHRS, <G> und <SHIFTO> für GOTO 
etc. Die meisten Befehle lassen sich durch zwei Zeichen 
abkürzen. Im nachfolgenden Ausdruck ist das natürlich 
nicht zu sehen, weil nach dem Befehl LIST nicht mehr die 
Abkürzungen, sondern die ausgeschreibenen Befehle zu 
sehen sind. So kommen auch mehr als 80 Zeichen in die 
eine Zeile des nachfolgenden Listings: 

10 TI$="000000":PRINTCHR$(147);:F0RZ=1T0374:PRINT" 
A";:NEXT:P0KE214,18:PRINT:PRINT TI/60"SEKUNDEN":END 

Und siehe da, diese »Kurzform« des Programms ist auch 
die schnellste Version. Der C64 braucht nur 0,93 Sekun¬ 
den. Diese letzte Beschleunigung basiert darauf, daß das 
Betriebssystem des Computers nur einmal einen Zeilenan¬ 
fang und ein Zeilenende suchen und erkennen muß, statt 
sechsmal wie in der Version 14. 

Das Ausnützen der vollen Kapazität einer Zeile bringt al¬ 
so nicht nur den Vorteil eines kleineren Speicherbedarfs, 
sondern auch Zeitgewinn. 


Regel 6 


* Programme ohne REM-Erläuterungen und ohne Leerstellen zwi¬ 
schen den Zeichen laufen schneller. 

* Zur Reduzierung der Zeilenzahl sollen möglichst viele Befehle in 
eine Zeile geschrieben werden. 


»Einzeiler« können auch Spaß und zugleich eine Heraus¬ 
forderung sein. Man sollte annehmen, daß mit einer Zeile 
nicht viel anzufangen sei. Weit gefehlt! 

Ich schreibe die nachstehenden Einzeiler lesbar, das 
heißt mit Leerstellen. Sie müssen die Programme aber wie¬ 
der mit allen Abkürzungstricks schreiben, sonst geht es 
schief. 

Von A. Boyd (Manchester) stammt ein Primzahlen-Erzeu- 
ger, der für die obere Grenze von 65000 viele Stunden 
braucht. 

1 F0R N=1 T0 65000:F=0:F0R J=2 TO N-1:F=F+ 

((N-J#INT(N/J))=0):NEXT:X=-(F=0): 
PRINTRIGHT$(STR$(X#N),6#X):NEXT 

Ein anderer Einzeiler wurde von A.M. Simmelt (Sheffield) 
zur Konvertierung von Dezimal- in Dualzahlen geschrie¬ 
ben. 

1 INPUT A:F0R I=l4 TO 0 STEP-1:Z=A AND 2tI:A=A-Z: 
Z=Z/211:Z$=RIGHT$(STR$(Z),l):PRINT Z$;:NEXT:G0T01 

Lassen wir es gut sein mit diesem Programmiersport und 
kehren wir zurück zu einer abschließenden Betrachtung 
der Zeitgewinne. 

Wir haben in Version 1 mit 10,48 Sekunden begonnen. 
Diese Laufzeit wurde ohne Änderung des Programmresul¬ 
tats stetig verkürzt, bis wir schließlich in Version 15 bei 0,93 
Sekunden gelandet sind. Ich nenne diese Beschleunigung 
um 90 Prozent schlicht und einfach spektakulär. 

Mehr kann ich nicht herausholen, es sei denn man pro¬ 
grammiert die Routine in Maschinensprache. 

Es soll Ihnen hier kein Machinensprache-Kurs zugemu¬ 
tet werden. Doch ein Programm in Maschinensprache be¬ 
steht ebenso aus Befehlen, Adressen und Variablen wie ein 
Basic-Programm, nur sind diese in einem speziellen Zah¬ 
lencode geschrieben. Dieser Zahlencode muß in den Ar¬ 
beitsspeicher geladen werden. Die für uns einfachste Mög¬ 
lichkeit besteht darin, die Zahlen in eine Speicherstelle hin- 
einzuPOKEn. Damit wir aber nicht unmäßig viele POKE- 
Befehle schreiben müssen, legen wir alle Code-Zahlen hin¬ 
ter DATA-Befehle und holen sie dann mit READ in eine ein¬ 
zige POKE-Schleife. Ich betone das deswegen, weil dieses 
Einlesen natürlich nicht zu dem Testprogramm gehören 
darf, dessen Laufzeit wir messen wollen. Das Testpro¬ 
gramm selbst sitzt zwischen den drei Zeilen der »Stopp¬ 
uhr«. Das heißt, genauer gesagt sitzt das Programm in den 
Speicherzellen, in die wir es hineinPOKEn. Aber erst nach 
dem Starten der Stoppuhr rufen wir es auf. Der dem RUN 
entsprechende Befehl für Maschinensprache heißt SYS. 

Wie Sie gleich sehen werden, fängt unser Testprogramm 
ab Speicherzelle 7168 an: 

10 TI$="000000" 

20 PRINT CHR$ (147) 

30 SYS 7168 

1000 P0KE 214,18:PRINT:PRINT TI/60"SEKUNDEN":END 

Ab Zeile 2000 plazieren wir das Programm, welches uns 
das Maschinenprogramm einliest. Um mit dem Einlesen zu 
beginnen, setzen wir noch eine Umleitung vor das Meßpro¬ 
gramm: 

5 GOTO 2000 

In Zeile 2000 löschen wir den Bildschirm. Zeile 2010, 
2020 und 2030 liest die Codezahlen, die in den Zeilen 2050 
bis 2090 stehen, und POKEt sie in die Speicherplätze 7168 
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bis 7200. Sobald die Zahlen eingelesen sind, können Sie 
beispielsweise das Meßprogramm mit dem Befehl GOTO 
10 (direkt eingeben) starten. 

Im nachstehenden Programm wird das noch etwas ele¬ 
ganter gelöst. Zuerst meldet das Programm das Ende des 
Einlesens (Zeile 2100 und 2101). Dann kommt die Anwei¬ 
sung, wie das Meßprogramm zu starten ist, nämlich durch 
Drücken irgendeiner Taste (abgefragt durch eine GET- 
Schleife). Wenn eine Taste gedrückt wird, springt das Pro¬ 
gramm auf Zeile 10 (das geschieht in Zeile 2160) 


5 GOTO 2000 
10 TI$="000000" 

20 PRINT CHR$(l47) 

30 SYS 7168 

1000 POKE 214,18:PRINT:PRINT TI/60"SEKUNDEN' 
2000 PRINT CHR$(l47) 

2010 FOR A=7168 TO 7200 
2020 READ B 
2030 POKE A,B 
2040 NEXT 

2050 DATA 162,0,169,1,157 
2060 DATA 0,4,169,14,157,0,216 
2070 DATA 232,224,0,208,241,169,1,157 
2080 DATA 254,4,169,14,157,254,216 
2090 DATA 232,224,120,208,241,96 
2100 PRINT"DAS MASCHINENPROGRAMM" 

2110 PRINT"IST JETZT EINGELESEN.":PRINT 
2120 PRINT"ZUM STARTEN DES PRO-" 

2130 PRINT"GRAMMS" CHR$(18)"TASTE"CHR$(l46)' 
DRÜCKEN" 

GET A$ 

IF A$=""THEN 2140 
GOTO 10 


:END 


2140 

2150 

2160 


6*en 


Version 

Programmier-Methode 

Laufzeit 

(Sek.) 

1 

Buchstaben POKEn, Zählschleife mit 

IF ... THEN 

10,48 

2 

POKE-Adressen vordefinieren 

7,30 

3 

alle Variablen vordefinieren 

6,15 

4 

Variablen mit 2 Buchstaben 

5,63 

5 

Variablen mit 1 Buchstaben 

5,51 

6 

PRINT CHR$ statt POKE 

4,05 

7 

CHR$ vordefinieren 

3,10 

8 

PRINT 'A' 

3,03 

9 

Schleife mit IF-GOTO statt IF-THEN 

3,00 

10 

IF Z < > S statt IF Z = S 

2,98 

11 

Schleife mit FOR-NEXT 

1,08 

12 

NEXT ohne Zählvariable 

1,00 

13 

Listing mit REMs 

1,20 

14 

Listing ohne REM, ohne Abstände 

0,98 

15 

Alles in eine Zeile 

0,93 

16 

Maschinensprache 

0,066 


Wir wollen uns nun einem anderen Thema zuwenden, 
und im folgenden ein paar Rechenbeispiele (arithmetische 
Funktionen) untersuchen und beschleunigen. Als erste 
nehmen wir uns in Version 17 die Multiplikation vor. Die 
Messung der Laufzeit erfolgt auf dieselbe Weise wie bei al¬ 
len Programmen vorher. Deshalb bleiben die Zeilen 10, 20 

Schneller Rechnen 

und 1000 gleich. Die Multiplikation soll 300mal ausgeführt 
werden (Zeile 30). Dann wird das Ergebnis auf dem Bild¬ 
schirm ausgegeben (Zeile 60). 

30 FOR Z=1 T0 300 
50 NEXT 
60 PRINT A 

Als Multiplikation nehmen wir den Extremfall, eine kurze 
Zahl multipliziert mit einer langen. 

40 A=3*0.123456789 

Nach RUN bleibt der Bildschirm zuerst leer, bis endlich 
nach 11,85 (14,15) Sekunden das Ergebnis der Multiplika¬ 
tion und die Laufzeit erscheinen. 

In Version 18 vertauschen wir die beiden Zahlen, die in 
Zeile 40 multipliziert werden. 

40 A=0.123456789*3 

Das führt natürlich nach Adam Riese zum gleichen Re¬ 
sultat wie vorher, aber die Laufzeit ist kürzer. Wir gewinnen 
0,44 Sekunden. Dieser Gewinn ist nicht überwältigend, 
aber überraschend. 

Erinnern wir uns, wie wir eine Multiplikation auf dem Pa¬ 
pier durchführen. Da ist die Rechnung vom zweiten Fall 
auch einfacher als die vom ersten. Für den Computer ergibt 
sich das gleiche Problem. 

In Yrrsion 19 nutzen wir noch eine Eigenheit der 
Commodore-Computer aus, die auf ihre amerikanische 
Herkunft zurückzuführen ist. Es ist nämlich erlaubt, eine 
Null vor dem Dezimalpunkt wegzulassen. Obwohl das mit 
der Multiplikation direkt nichts zu tun hat, bietet uns doch 
eine gute Gelegenheit, die Einsparung durch das Weglas¬ 
sen der Null auch zeitlich zu messen. Zeile 40 sieht jetzt so 
aus: 

40 A=.123456789*3 

Das bringt zwar wieder nicht sehr viel, nur 0,20 Sekun¬ 
den, aber »Kleinvieh macht auch Mist«. 

Eine ähnliche Verbesserung, die wir hier nicht auspro¬ 
bieren, wird erzielt durch das Ersetzen einer alleinstehen¬ 
den Null durch einen Punkt, zum Beispiel: 
statt IF X=0 THEN 
jetzt IF X=. THEN 


Regel 7 


* Bei einer Multiplikation sollte die längere Zahl vor der kürzeren 
stehen (langer Multiplikant, kurzer Multiplikator). 

* Eine einzelne Null wird durch einen Punkt ersetzt und die Null 
vor dem Dezimalpunkt wird weggelassen. 


Tabelle 1. Ein Überblick zu den Laufzeiten der Programm- 
Versionen für »Buchstaben auf dem Bildschirm« 

Starten Sie das Programm und Sie werden eine Überra¬ 
schung erleben: die Laufzeit beträgt nur 0,066 Sekunden. 
Ich hoffe, daß ich Sie mit dem Virus der Maschinensprache 
zumindest ein wenig infiziert habe. 

Eine Übersicht aller bisher genannten Versionen und die 
entsprechenden Laufzeiten finden Sie in Tabelle 1. 


In Version 20 ersetzen wir in Zeile 40 beide Zahlen durch 
Buchstaben, die wir in einer neuen Zeile 25 definieren. 

25 B=.123456789:0=3 
40 A=B#C 

Dieser Ablauf endet nach 1,48 Sekunden, das heißt wir 
gewinnen 12,23 Sekunden. Also Regel 1 unbedingt beach¬ 
ten! 

Eine andere beachtenswerte arithmetische Funktion ist 
das »Potenzieren« (Quadrat- oder Kubikzahlen), ausgelöst 
durch das Zeichen I. Version 21 erzielen wir durch Lö¬ 
schen der Zeile 25 und Änderung der Zeile 40: 

40 A=4t3 
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«Vier hoch drei« ergibt 64 und benötigt 10,53 Sekunden. 
In Version 22 wollen wir sehen, ob vordefinierte Variable 
ebenso einschlagen wie bei der Multiplikation. 

25 B=4:C=3 
40 A=BtC 

Diesmal sind wir nur 0,22 Sekunden schneller. Aber wir 
geben nicht auf! Version 23 gleicht alles wieder aus, und 
zwar durch den simplen Trick, daß wir das Potenzieren in 
seine Grundelemente zerlegen. 

Vier hoch drei (413) ist dasselbe wie vier zweimal mit sich 
selbst multipliziert (4*4*4). 

25 B=4 
40 A=B*B#B 

Das Programm braucht jetzt nur noch 1,68 Sekunden, ist 
also 8,31 Sekunden schneller geworden. 


Regel 8 


Die Funktion Potenzieren sollte durch Mehrfach-Multiplikation 
ersetzt werden. 


In Tabelle 2 finden Sie eine Übersicht der Versionen 17 
bis 23 mit den zugehörigen Laufzeiten. 


Version 

Programmier-Methode 

Laufzeit 

(Sek.) 

17 

Multiplikation, lang x kurz 

14,15 

18 

Multiplikation, kurz x lang 

13,71 

19 

Null weglassen 

13,51 

20 

Variablen vordefinieren 

1.48 

21 

Potenzieren (4 hoch 3) mit 1 

- S'le.R 

10,53 

22 

Variable vordefinieren 

10.31 

23 

4x4x4 statt 4 13 

2,01 


Tabelle 2. Die Laufzeiten der Programm-Versionen für 
»arithmetische Funktionen« 


Als letztes Objekt möchte ich oft aufgerufene Unterpro¬ 
gramme messen. Wirerreichen dies durch Ändern der letz¬ 
ten Version 23. 

Version 24: Die Definition der Variablen (Zeile 25) und 
der Multiplikation (Zeile 40) verschieben wir als Unterpro¬ 
gramm ans Ende des Programms und springen innerhalb 
der 300fachen Schleife mit GOTO auf diese Zeilen. 

Die Zeile 25 wird gelöscht. 

30 F0R Z=1 T0 300 
40 GOTO 40000 

Alles andere bleibt gleich und neu hinzu kommt: 

40000 B=4 
50000 A=B#B#B 
60000 GOTO 50 

Es ist nicht weiter erstaunlich, daß dieser Umbau die Ver¬ 
sion 24 gegenüber Version 23 verlangsamt. Aber merken 
Sie sich die Laufzeit von 3,28 Sekunden. Als nächstes 
ersetzen wir die beiden GOTO-Zeilen durch GOSUB-RE- 
TURN. 

40 G0SUB 40000 
60000 RETURN 

Diese Version 25 spart 0,15 Sekunden. GOSUB ist 
schneller als GOTO! Sie haben vielleicht schon gelesen, 
daß oft gebrauchte Unterprogramme am Anfang eines Pro¬ 
gramms stehen sollen. Den Grund dafür will ich Ihnen mit 
den nächsten beiden Versionen vorführen. 


Version 26 macht dies zunächst für die GOTO-Version. 
Wir bauen sie auf der Version 24 auf, mit folgenden Ände¬ 
rungen: 

Die Zeitmessung lassen wir in den Zeilen 10, 20 und 
1000, die Schleife und den Ausdruck des Resultats in den 
Zeilen 30, 50 und 60. 

Nur beim Unterprogramm streichen wir alle Nullen der 
Zeilennummern, so daß es jetzt in den Zeilen 4, 5 und 6 
steht. Um zu vermeiden, daß das Programm gleich mit dem 
Unterprogramm beginnt, fügen wir in Zeile 3 noch eine Um¬ 
leitung ein, die sofort auf Zeile 10 springt. 

Schließlich brauchen wir noch den Sprung in das Unter¬ 
programm, den wir in Zeile 33 setzen. Das Ganze sieht fol¬ 
gendermaßen aus: 

3 GOTO 10 

4 B=4 

5 A=B*B#B 

6 GOTO 50 

10 TI$="000000" 

20 PRINT CHR$(l47) 

30 F0R Z=1 TO 300 

33 GOTO 4 

50 NEXT 

60 PRINT A 

1000 P0KE 214,18: PRINT .-PRINT TI/60 "SEKUNDEN END 

Nach RUN erhalten wir 3,1 Sekunden. Gegenüber Ver¬ 
sion 24, unserem Vergleichsobjekt, sparen wir 0,18 Sekun¬ 
den. 

Dasselbe passiert, wenn wir in Version 27 die GOTOs 
durch GOSUB-RETÜRN ersetzen. 

6 RETURN 
33 GOSUB 4 

Geuc nüber der anderen GOSUB-Version 25 sparen wir 
0,17 Sekunden. 


Regel 9 


* Der Aufruf von Unterprogrammen ist mit GOSUB schneller als 
mit GOTO. 

• Häufig gebrauchte Unterprogramme gehören an den Anfang des 
Programms. Sie müssen dann allerdings zuerst mit einem GOTO 
umgangen werden. 


Einen Überblick über die Laufzeiten der »Unterprogram¬ 
me« erhalten Sie in Tabelle 3. 

Ich bin überzeugt, daß in Basic noch mehr spektakuläre 
Zeitgewinne stecken. Falls Sie eine Regel 10 oder noch 
mehrere entdecken, schreiben Sie doch an die Redaktion 
Sonderhefte. 

(Dr. H. Hauck/U. Jürgens/kn) 


Version 

Programmier-Methode 

Laufzeit 

(Sek.) 

24 

Unterprogramm am Ende, Sprung 
mit GOTO-GOTO 

3,28 

25 

Unterprogramm am Ende, Sprung 
mit GOSUB-RETURN 

3,13 

26 

Unterprogramm am Anfang, Sprung 
mit GOTO-GOTO 

3,10 

27 

Unterprogramm am Anfang, Sprung 
mit GOSUB-RETURN 

2,96 


Tabelle 3. Die Laufzeiten der Programm-Versionen für 
»Unterprogramme« 
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Mein 

Computer 

versteht 


midi nidit! 



Jeder Programmierer, ob Anfänger oder Profi, 
macht beim Programmeschreiben Fehler. Der 
Anfänger jedoch kennt meist wederden genauen 
Grund noch weiß er, wie er ihn beheben kann. 
Dem wollen wir mit einer ausführlichen Fehlerta¬ 
belle und vielen Tips zur Suche der Fehlerursa¬ 
che abhelfen. 

O bwohl dieser Artikel eigentlich mehr als Nachschla¬ 
gewerk für den Notfall gedacht ist, schadet es nicht, 
wenn Sie ihn einmal komplett durchlesen. Sie haben 
so ein »Grundwissen«, auf das Sie bei Bedarf zurückgreifen 
können. Auch können Sie dann auf Zusammenhänge zwi¬ 
schen den einzelnen Fehlern schließen. Doch kommen wir 
nun zum Praxisteil: 

Sie haben sich einen neuen C 64 besorgt, packen ihn vol¬ 
ler Erwartung zu Hause aus, schließen ihn an, und los 
geht's mit dem Programmieren. Aber o weh! der Computer 
macht nicht das, was man von ihm verlangt. Es erscheinen 
Fehlermeldungen auf dem Bildschirm (erkennbar am vor¬ 
angestellten »?« und daran, daß sich der Computer uner¬ 
wartet mit »READY.« zurückmeldet). Was tun? Spätestens 
jetzt wird die Bedienungsanleitung zum C64 zur Hand ge¬ 
nommen, um dem Fehler auf die Schliche zu kommen. Auf¬ 
merksam liest man das entsprechende Kapitel, doch was 
versteht man? Nichts!! Lauter Fachausdrücke, von denen 
man noch nie etwas gehört hat, helfen auch nicht weiter. 
Genau an diesem Punkt soll dieser Artikel ansetzen, um Ih¬ 
nen bei der Fehlersuche und deren Beseitigung unterstüt¬ 
zend unter die Arme zu greifen. Jeder mögliche Fehler wird 
ausführlich behandelt. Dabei ist jedem Fehler ein Absatz 
gewidmet, der wie folgt aufgebaut ist: 

- Fehlermeldung, also das, was auf dem Bildschirm er¬ 
scheint und kurze Erklärung des Fehlers 


- Klärung der Fachausdrücke 

- Wie entsteht der Fehler, mit Beispielen? 

- Wie geht man vor, um die Fehlerursache zu suchen? 

- Wie wird der Fehler beseitigt? 

Hinweis: Bevor Sie ein neues Beispiel eintippen, sollten 
Sie erst das alte mit »NEW« löschen. 

Fehler im Betriebssystem: 

Wenn Sie mit einer RS232-Schnittstelle arbeiten, so ist 
folgendes zu beachten: Nach einem open 1 , 2 ,... also»Da- 
tenkanal zur RS232-Schnittstelle öffnen«, werden vom 
Computer sämtliche Variablen eines Basic-Programms ge¬ 
löscht. Daher sollte dieser OPEN-Befehl unbedingt als er¬ 
ster Befehl in einem solchen Programm stehen. 


?BAD SUBSCRIPT: 


Der Fehler tritt auf, wenn versucht wird, eine Feldvariable 
anzusprechen, die nicht dimensioniert wurde. 

Eine Feldvariable ist eine normale Variable wie »A« oder 
»TEST« mit zusätzlichem Index wie »A(5)« oder »TEST(X)«. 
Der Index in Klammern ist als Zeiger zu verstehen, der auf 
ein Element des Feldes mit dem Namen »A« oder »Test« 
zeigt. Felder, die mehr als elf Elemente enthalten, müssen 
mit dem Basic-Befehl DIM definiert werden. Felder, die we¬ 
niger als elf Elemente enthalten, müssen nicht definiert 
werden. Zum Beispiel legt der Befehl DIM A(20) ein Feld mit 
insgesamt 21 Elementen fest (21 Elemente, weil die Feldva¬ 
riable A(0) auch in der Dimensionierung enthalten ist). 
Wenn nach dieser Felddefinition versucht wird, der Feldva¬ 
riablen »A(25)« einen Wert zuzuweisen: »A(25)=123«, er¬ 
scheint die Fehlermeldung »BAD SUBSCRIPT« auf dem 
Bildschirm. Die gleiche Fehlermeldung erhält man, wenn 
der Feldvariablen »A(11)« ein Wert zugewiesen wird, ohne 
zuvor ein entsprechend großes Feld zu dimensionieren. 
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Tritt ein solcher Fehler in einem komplexeren Programm 
auf, ist zuerst zu überprüfen, wie groß der Index der Feldva¬ 
riablen ist. Sollte er größer als 10 sein, ist die dazugehörige 
DIM-Anweisung zu suchen. Wenn eine solche nicht exi¬ 
stiert, erweitern Sie eine der ersten Zeilen eben um diese 
DIM-Anweisung. 


BREAK: 


Bei dieser Meldung handelt es sich nicht um eine Fehler¬ 
meldung im herkömmlichen Sinn. Vielmehr macht der 
Computer darauf aufmerksam, daß das Programm oder ein 
Speicher-oder Ladevorgang absichtlich unterbrochen wur¬ 
de. Diese Meldung existiert in zwei verschiedenen Versio¬ 
nen. 

7BREAK ERROR zeigt an, daß beim Laden oder Spei¬ 
chern eines Programms die RUN/STOP-Taste gedrückt 
wurde. 

7BREAK IN XXXX weist darauf hin, daß während eines 
Programmlaufes die RUN/STOP-Taste gedrückt wurde, 
oder daß sich in der angesehen Zeile der Basic-Befehl 
»STOP« oder »BREAK« befindet. In einem solchen Fall 
kann das Programm imit dem Basic-Befehl »CONT« für 
»continue« fortgesetzt werden, vorausgesetzt es erscheint 
nicht die Fehlermeldung 


?CAN’T CONTINUE: 


In einem solchen Fall ist einer der folgenden Punkte ein¬ 
getreten: 

1) Das Programm wurde nicht, wie oben beschrieben, ab¬ 
sichtlich unterbrochen, sondern der Computer selbst hat 
es angehalten, weil ein »SYNTAX ERROR« auftrat (der 
Basic-Übersetzer konnte einen Befehl im Programm nicht 
übersetzen/verstehen). 

2) Im Direktmodus wurden mit dem Basic-Befehl »CLR« 
die Variablen gelöscht; das heißt Sie haben, nachdem das 
Programm unterbrochen wurde, folgendes eingegeben: 

CLR <RETURN> 

3) Am Programm wurde nach einer Unterbrechung et¬ 
was geändert. 

4) Im Direktmodus trat nach einer Unterbrechung ein 
Fehler auf. 

Beispiel: Sie starten ein beliebiges Basic-Programm, 
halten es mit der RUN/STOP-Taste an und geben ein 

A <RETURN> 

Der Computer meldet einen »SYNTAX ERROR«. Klar, 
den Befehl »A« gibt es nicht. Nun versuchen Sie das Pro¬ 
gramm mit »cont« fortzusetzen. Der Computer gibt die Feh¬ 
lermeldung »CAN’T CONTINUE« aus. 

5) Wenn Sie den Befehl »CONT« eingeben, bevor ein 
Basic-Programm gestartet wurde, reagiert der Computer 
ebenfalls mit »CAN’T CONTINUE«. 


7DEVICE NOT PRESENT: 


Es wurde versucht, ein peripheres Gerät wie Drucker, 
Diskettenlaufwerk oder ähnliches anzusprechen, das ent¬ 
weder nicht eingeschaltet oder überhaupt nicht vorhanden 
ist oder nicht reagiert. Dieser Fehler tritt gewöhnlich nicht 
beim eigentlichen »OPEN«-Befehl auf, wie das folgende 
Beispiel zeigt, sondern dann, wenn versucht wird, das Ge¬ 
rät mit den Befehlen »GET#, INPUT#, PRINT#« anzu¬ 
sprechen. Beispiel: 

OPEN 7,7 < RETURN > 

PRINT # 7, "ABCDEF" < RETURN > 

Meldet der Computer einen »DEVICE NOT PRESENT«- 
Error, sollten Sie zunächst überprüfen, ob alle erforderli¬ 
chen Geräte (Drucker, Diskettenlaufwerk und so weiter) ein¬ 
geschaltet und mit dem Computer verbunden sind. Ist das 
der Fall, haben Sie mit Sicherheit eine falsche Geräte¬ 
adresse (zweite Zahl hinter dem OPEN-Befehl) gewählt. 
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Um den für die Fehlermeldung verantwortlichen OPEN-Be¬ 
fehl zu finden, lassen Sie sich die in der Fehlermeldung an¬ 
gegebene Zeile LISTen. Suchen Sie in dieser Zeile einen 
Basic-Befehl, dem unmittelbar das Nummernzeichen (#) 
und eine Zahl (Filenummer) folgt. Sind mehrere solcher Be¬ 
fehle vorhanden, ist die Zeile aufzuteilen und zwar so, daß 
jede Zeile nur einen Befehl mit Nummernzeichen enthält. 
Beispiel: 

10 PRINT#4,CHR$(32):GET#8,A$ 

Diese Zeile ist in die folgenden zwei Zeilen aufzuteilen: 

10 PRINT#4,CHR$(32) 

11 GET # 8,A$ 

Starten Sie nun das Programm erneut mit RUN und lassen 
sich wieder die in der Fehlermeldung angegebene Zeile 
LISTen. Im nächsten Schritt ist der OPEN-Befehl im Pro¬ 
gramm zu suchen, der die gleiche Filenummer (erste Zahl 
hinter dem OPEN-Befehl) hat, wie der Befehl (Zahl hinter 
dem Nummernzeichen), bei dem der Fehler aufgetreten ist. 
Die zweite Zahl hinter dem fehlerträchtigen OPEN-Befehl 
ist die falsche Geräteadresse. Damit Sie dort die richtige 
Geräteadresse einsetzen können, folgt eine Tabelle aller 
möglichen Geräteadressen: 

1 Datasette 

2 RS232 

3 Bildschirm 

4 Drucker 

5 Drucker, falls im Drucker die Geräteadresse auf 5 umge¬ 
stellt wurde 

6 Plotter 1520 

7 frei für externe Geräte 

8 bis 11 Diskettenlaufwerke 

12 bis 15 frei für externe Geräte 


?D! w ,‘SION BY ZERO: 


Dieser Fehlermeldung erscheint nur dann, wenn durch 
Null dividiert wurde. Aber Vorsicht! Es ist nicht immer auf 
Anhieb ersichtlich, daß der Nenner tatsächlich Null ist. Ist 
zum Beispiel bei der Funktion »A=B/(C*D*E*F)« eine der 
Variablen »C, D, E, F« Null, so ist natürlich der gesamte Nen¬ 
ner Null. Dieses Beispiel ist vielleicht trivial, aber was ma¬ 
chen Sie, wenn bei der Funktion »A=TAN (PI/2)« ein »DIVI¬ 
SION BY ZERO«-Error erscheint? Um das zu verstehen, 
muß man wissen, wie der Computer die TAN-Funktion be¬ 
handelt. Er berechnet nämlich nicht direkt den Tangens, 
sondern ermittelt ihn mit Hilfe der SIN- und COS-Funktion 
(tan(x) = sin(x)/cos(x)). Wenn für X ^eingesetzt wird, ist 
der Nenner »COS ( p £)« Null, und es erscheint die Fehler¬ 
meldung. 

Um den »DIVISION BYZERO«-Errorzu beheben, ist jede 
Variable im Nenner, falls vorhanden, mit dem Basic-Befehl 
»PRINT«, gefolgt von der Variablen, zu überprüfen. Ist die 
Variable gefunden, die den Fehler verursacht hat, müssen 
Sie dafür sorgen, daß sie niemals den Wert Null annehmen 
kann. Dies läßt sich durch eine Abfrage vor der Funktion 
realisieren. Beispiel: 

IF C*D#E*F < >0 THEN A=B/(C#D#E»F) 


7EXTRA IGNORED: 


Zeigt an, daß hinter dem Basic-Befehl INPUT weniger Va¬ 
riablen stehen, als eingegeben wurden. Beispiel: 

10 INPUT A$,B$ <RETURN> 

Nach der Eingabe wird dieser Einzeiler mit RUN 
< RETURN > gestartet. Es erscheint ein Fragezeichen (?) auf 
dem Bildschirm. Geben Sie nun ein: 

TESTl,TEST2,TEST3 <RETURN> 

Der Computer meldet einen »EXTRA IGNORED«-Error, 
denn »TESTl« wird in die Variable »A$« und »TEST2« in die 
Variable »B$« eingelesen. Für »TEST3« existiert keine Varia¬ 
ble, und genau dies meldet der Computer. Häufig entsteht 
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eine solche Fehlermeldung unbeabsichtigt bei Zeichenket¬ 
teneingaben, die Kommata enthalten. Man sollte daher 
darauf achten, wenn mit dem INPUT-Befehl gearbeitet 
wird, daß eine Zeichenkette, die in eine Variable eingelesen 
werden soll, kein Komma enthält. Durch das Komma wird 
nämlich dem Computer mitgeteilt, daß alle folgenden Zei¬ 
chen bis zum nächsten Komma in die nächste Variable ein¬ 
gelesen werden sollen. Eine Zeichenkette darf neben dem 
Komma auch keine Doppelpunkte enthalten; denn alle Zei¬ 
chen, die hinter dem ersten Doppelpunkt stehen, werden 
vom Computer verschluckt. Der gleiche Fehler tritt auch bei 
dem Befehl »INPUT #« auf, jedoch wird in diesem Fall keine 
Fehlermeldung ausgegeben. Übrigens noch ein Tip: Bei äl¬ 
teren C64 darf der Cursor nicht nach oben oder unten ver¬ 
schoben werden, wenn der INPUT-Befehl eine Eingabe 
verlangt. 


FILE DATA ERROR: 


Diese Fehlermeldung erscheint, wenn im Programm ver¬ 
sucht wird, Zeichenketten vom Diskettenlaufwerk, von der 
Datasette oder der Tastatur in eine numerische Variable 
einzulesen. Beispiel: 

10 0PEN1,0:REM TASTATUR ALS EINGABEGERÄT ÖFFNEN 
20 INPUT#1,A:REM AUF EINGABE WARTEN 
30 CLOSEI:REM EINGABEGERÄT »TASTATUR« SCHLIESSEN 

Zeile 10 öffnet einen Kanal mit der Filenummer 1 und 
setzt die Tastatur (Geräteadresse 0) als Eingabegerät. 

In Zeile 20 wird auf die Eingabe gewartet. Es können be¬ 
liebige Zahlen (keine Buchstaben) eingegeben werden. 
Nach dem Drücken der RETURN-Taste wird in Zeile 30 der 
Kanal mit der Filenummer 1 geschlossen. 

Sind die drei oben stehenden Zeilen abgetippt, läßt sich 
das Programm mit RUN starten. Im Gegensatz zum norma¬ 
len INPUT-Befehl ohne dem Nummernzeichen wird kein 
Fragezeichen ausgegeben. Geben Sie nun ein: 

123 <RETURN> 

456789 <RETURN> 
und so weiter 

Es erscheint, wie erwartet, keine Fehlermeldung. Nun 
versuchen Sie es mal mit »1A3«. Der Computer meldet ei¬ 
nen »FILE DATA«-Error. Die erste Zahl »1« kann der numeri¬ 
schen Variablen »A« zugewiesen werden. Das zweite Zei¬ 
chen jedoch ist keine Zahl, sondern ein alphanumerisches 
Zeichen beziehungsweise ein Buchstabe und läßt sich 
nicht einer numerischen Variablen zuordnen. 

Der angezeigte Fehler kann sehr schnell gefunden wer¬ 
den, da die Zeile, in der der Fehler auftrat, mit der Fehler¬ 
meldung zusammen ausgegeben wird. 


7FILE NOT FOUND: 


Es wurde versucht, ein Programm- oder Daten-File zu la¬ 
den, dessen Name nicht auf der momentan eingelegten 
Diskette existiert. Um diese Fehlermeldung kennenzuler¬ 
nen, tippen Sie einfach ein »L0AD"ALR",8«. Natürlich muß 
dazu ein Diskettenlaufwerk vorhanden, eingeschaltet und 
mit dem Computer verbunden sein. Erscheint eine solche 
Fehlermeldung innerhalb eines Programms, wird zusam¬ 
men mit der Fehlermeldung die Zeile ausgegeben, in der 
der Fehler auftrat. Sollte in der fehlerhaften Zeile statt eines 
Namens hinter dem LOAD-Befehl nur eine alphanumeri¬ 
sche Variable stehen, zum Beispiel »...:LOAD A$,8:...«, 
dann läßt sich dieser Name mit »PRINT A$« auf den Bild¬ 
schirm bringen. Wenn sich aus irgendeinem Grund der Na¬ 
me nicht mehr feststellen läßt, kann er mit dem Befehl 
»SYS 63123 « noch einmal angezeigt werden. Übrigens: Die 
Meldung »FILE NOT FOUND« erscheint nur, wenn mit dem 
Diskettenlaufwerk gearbeitet wird. Bei Ladeversuchen mit 
der Datasette wird entweder nichts oder »DEVICE NOT 
PRESENT« ausgegeben. 


?FILE NOT OPEN: 


Es wurde versucht, mit den Befehlen »PRINT#, GET#, 
INPUT#« Zeichen an ein externes Gerät zu übermitteln 
oder von einem solchen zu lesen, ohne zuvor das File mit 
dem OPEN-Befehl geöffnet zu haben. Dabei ist es durch¬ 
aus denkbar, daß eine falsche Filenummer (erste Zahl hin¬ 
ter dem OPEN-Befehl) hinter einem der oben stehenden 
Befehle oder hinter dem OPEN-Befehl eingesetzt wurde. 
Beispiel:' 

10 OPEN 5,4: REM DRUCKERKANAL ÖFFNEN 

20 PRINT#4,"ABC":REM UND DIE ZEICHEN »ABC« DRUCKEN 

30 CL0SE 4: REM DRUCKERKANAL SCHLIESSEN 

Wird dieses Programm eingegeben und gestartet, so er¬ 
hält man einen »FILE NOT OPEN«-Error, denn die Zeile öff¬ 
net einen Kanal mit der logischen Filenummer »5«. Die Zei¬ 
len 20 und 30 beziehen sich aber auf die logische Filenum-, 
mer »4«. 

Bei längeren ineinander verschachtelten Programm¬ 
schleifen ist es häufig sehr schwierig, einen solchen Fehler 
zu beseitigen. Daher geht man einen anderen Weg. Man 
öffnet direkt vor dem PRINT #-Befehl in der gleichen Zeile 
einen Kanal mit der entsprechenden Filenummer (im Bei¬ 
spiel wird die Zeile 20 so ergänzt: 20 0PEN4,4:PR.. .). Jetzt 
muß der Kanal natürlich innerhalb des Programms wieder 
geschlossen werden. Wenn Sie unsicher sind, daß das tat¬ 
sächlich gemacht wird, ist unmittelbar hinter dem 
PRINT#-Befehl der Kanal zu schließen (im Beispiel muß 
wieder die Zeile 20 ergänzt werden: 20 ..:.. "ABC":CL0- 
SE 4). Tritt der gleiche Fehler nach dem Start des Pro¬ 
gramms in einer anderen Zeile auf, in der ebenfalls die glei¬ 
che Filenummer benutzt wurde, so muß der zuletzt einge¬ 
fügte CLOSE-Befehl gelöscht und hinter dem Befehl einge¬ 
setzt "'erden, der den neuen Fehler verursacht hat. So kön¬ 
nen Sie sich durch das gesamte Programm »hangeln«, bis 
es fehlerfrei arbeitet. 


7FILE OPEN: 


Diese Fehlermeldung ist genau das Gegenstück zu der 
Fehlermeldung »FILE NOT OPEN«. Erscheint der »FILE 
OPEN«-Error auf dem Bildschirm, wurde ein Kanal mit der 
gleichen Filenummer zweimal geöffnet. Das heißt es fehlt 
ein CLOSE-Befehl, der den zuerst geöffneten Kanal wieder 
schließt. Beispiel: 

10 OPEN 4,4 
20 OPEN 4,4 

Der einfachste Weg, diesen Fehler zu beseitigen, ist es, 
vor dem OPEN-Befehl, in der Zeile, die hinter der Fehler¬ 
meldung angegeben ist, den entsprechenden Kanal mit 
dem CLOSE-Befehl zu schließen (im Beispiel: 20 CL0SE 
4:OPEN 4,4). Sie werden sich jetzt zu Recht fragen, warum 
wird nicht einfach die Zeile 20 gelöscht? Die Antwort darauf 
ist ganz einfach. Hinter dem ersten OPEN-Befehl mit der Fi¬ 
lenummer 4 könnte ja auch eine andere Geräteadresse ste¬ 
hen, durch die ein anderes Gerät angesprochen wird (zum 
Beispiel OPEN 4, 8 für Diskettenlaufwerk). Würde jetzt der 
zweite OPEN-Befehl (im Beispiel Zeile 20) gelöscht wer¬ 
den, so würde alles, was zum Drucker (Geräteadresse 4) 
gesendet werden soll, zum Diskettenlaufwerk geschickt. 
Daher seien Sie äußerst vorsichtig mit dem Löschen von 
Befehlen innerhalb eines Programms. 


7FORMULA TOO COMPLEX: 


Es ist fast unmöglich, diesen Fehler in ein Basic-Pro- 
gramm einzubauen. Trotzdem existiert die Fehlermeldung. 
Durch sie meldet der Computer, daß in einer Zeichenketten¬ 
addition zu viele Klammerausdrücke stehen. Beispiel: 
PRINT "A "+ ( "B "+ "Bl"+ ( "C "+ "D ")) 

Die Anzahl der Zeichen innerhalb der einzelnen Zeichen¬ 
ketten ist völlig uninteressant. Wichtig ist, daß zweimal die 
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Zeichenkombination »+(« vorkommt. Denn der Computer 
versucht sich alles vor den jeweiligen Klammerausdrücken 
zu merken. Im Beispiel merkt sich der C64 das Zeichen 
»A«, berechnet »"B" + "Bl "= "BB1"« und versucht sich 
auch diese Zeichen zu merken, um im nächsten Schritt 
.»"C"+ "D"« auszurechnen. Soweit kommt er aber nicht, 
weil er sich maximal eine Zeichenkette merken kann (im 
Beispiel »A«) und gibt daher die Fehlermeldung »FORMU- 
LA TOO COMPLEX« aus. 

Anmerkung: Verschachtelungen innerhalb einer Zei- 
chenkettenadditi'on sind völlig überflüssig. Sie erhalten nur 
dann einen Sinn, wenn nicht nur addiert, sondern auch 
multipliziert oder dividiert wird, und genau dies ist mit Zei¬ 
chenketten nicht möglich. 

Die oben stehende Zeile könnte daher auch so ausse- 
hen: 

PRINT "A "+ "B V"B1"+ "C "+ "D " 

oder einfach 

PRINT "A"; "B"; "Bl"; "C"; "D" 
oder noch einfacher 
PRINT "A" "B" "Bl" "C" "D" 

Das Ergebnis ist immer das gleiche. Deshalb ist bei Zei¬ 
chenkettenoperationen das Pluszeichen und vor allen Din¬ 
gen das Arbeiten mit Klammern zu vermeiden. 

Sollte trotzdem mal ein »FORMULA TOO COMPLEX«- 
Error erscheinen, ist ein fataler Fehler gemacht worden, der 
sich nur beseitigen läßt, indem man den Computer kurzzei¬ 
tig ausschaltet. 


7ILLEGAL DEVICE NUMBER: 


Diese Fehlermeldung bedeutet, daß ein Befehl zu einem 
unzulässigen Gerät geschickt wurde. Mit anderen Worten: 
Die im Befehl angegebene Geräteadresse ist falsch. Zum 
Beispiel erzeugt »LOAD"TEST ",0« einen »ILLEGAL DEVICE 
NUMBER«-Error, denn es ist unmöglich, ein Programm von 
dem Gerät mit der Geräteadresse »0« (Tastatur) zu laden. 

Erscheint diese Fehlermeldung auf dem Bildschirm, ist 
die Beseitigung des Fehlers recht einfach. Lassen Sie sich 
die Zeile, die hinter der Fehlermeldung angegeben ist, 
LISTen und schauen sich alle LOAD- und SAVE-Befehle an. 
Ist eine der Geräteadressen hinter diesem Befehl »0,2 oder 
3«, dann haben Sie den Fehler gefunden. Sollte nicht be¬ 
kannt sein, welche Gerätenummer welchem Gerät zuge¬ 
ordnet ist, dann schauen Sie in der Gerätenummern- 
Tabelle nach, die bei der Beschreibung der Fehlermeldung 
»DEVICE NOT PRESENT« aufgeführt ist. 


ILLEGAL DIRECT: 


Wenn versucht wird, den Basic-Befehl »GET« oder »IN¬ 
PUT« im Direktmodus einzugeben, dann meldet sich der 
Computer mit dieser Fehlermeldung. Der Direktmodus un¬ 
terscheidet sich vom Programmodus dadurch, daß im Di¬ 
rektmodus jeder eingegebene Befehl ausgeführt wird, so¬ 
bald man die RETURN-Taste drückt. Den Programmodus 
erkennt der C64 an einer Zahl (Zeilennummer) am Anfang 
einer Zeile. Wird hinter einer Zeile, die mit einer Zeilennum¬ 
mer beginnt, die RETURN-Taste gedrückt, dann wird die 
Zeile nicht ausgeführt, sondern in den Speicher des C64 
geschrieben. Beispiel: 

INPUT A$ < RETURN > 

führt zur Fehlermeldung »ILLEGAL DIRECT« 

Wird vor den INPUT-Befehl eine Zahl geschrieben »io 
INPUT A$ < RETURN >«, dann akzeptiert der Computer 
diese Zeile und speichert sie. Wenn der INPUT-Befehl jetzt 
ausgeführt werden soll, ist RUN < RETURN> im Direktmo¬ 
dus einzugeben. 

Da der »ILLEGAL DIRECT«-Error niemals in einem Pro¬ 
gramm auftauchen kann, erübrigt sich die Behebung die¬ 
ses Fehlers. 


ILLEGAL QUANTITY: 


Diese Fehlermeldung zeigt an, daß die Berechnung ei¬ 
ner Funktion eine Zahl ergab, die der Computer in dieser 
Form nicht verarbeiten kann. Arbeitet man mit Integer- 
Variablen (zum Beispiel A%), ist darauf zu achten, daß den 
Variablen niemals Zahlen zugewiesen werden, deren Wert 
32000 überschreitet. Wird versucht, mit dem Basic-Befehl 
POKE eine Zahl zu speichern, deren Wert größer ist als 255 
oder negativ, dann erscheint auch ein »ILLEGAL QUANTI- 
TY«-Error. Die gleiche Fehlermeldung gibt der C64 auch 
dann aus, wenn beim OPEN-Befehl eine logische Filenum¬ 
mer (erste Zahl hinter dem OPEN-Befehl) größer als 255 ge¬ 
wählt wurde, oder wenn aus einer negativen Zahl die Qua¬ 
dratwurzel gezogen werden soll. Alle folgenden Beispiele 
erzeugen einen »ILLEGAL QUANTITY«-Error: 
A$=33000:REM DIE INTEGERVARIABLE k% IST GRÖSSER 
32000 

POKE 2,300:REM ES SOLL EINE ZAHL GESPEICHERT 

WERDEN, DIE GRÖSSER IST ALS 255 

POKE 2,-3:REM NEGATIVE WERTE LASSEN SICH NICHT 

SPEICHERN 

OPEN 300,4:REM FILENUMMER GRÖSSER 255 

PRINT SQR(-l):REM AUS NEGATIVEN ZAHLEN KANN NICHT 

DIE QUADRATWURZEL GEZOGEN WERDEN 

Einen solchen Fehler im Programm aufzuspüren ist nicht 
einfach, denn in den meisten Fällen enthalten Variable die 
fehlerträchtigen Zahlen. Um einen solchen Fehler zu besei¬ 
tigen, lassen Sie sich zunächst die Zeile LISTen, die den 
Fehler enthält. Danach ist jede in dieser Zeile vorkommen¬ 
de Variable mit dem Befehl PRINT auf den Bildschirm zu 
schreiben. Wenn bei diesem Versuch die Fehlermeldung 
angezeigt wird, ist zumindest die fehlerhafte Variable ge¬ 
funden. Jetzt muß gegebenenfalls Schritt für Schritt der 
Progra:: mablauf verfolgt werden, um die Stelle zu finden, 
an der der Variablen die falsche Zahl zugewiesen wurde. 


I/O ERROR 1 bis 29: 


Diese Fehlermeldung existiert nach dem Einschalten 
des Computers nicht. Nur dann, wenn in die Speicherzelle 
157 die Zahl 64 oder 192 geschrieben wird (zum Beispiel 
POKE 157,64), gibt der Computer im Falle eines Fehlers die 
Fehlermeldung »I/O ERROR« aus. Dabei entspricht eine 
Zahl zwischen 1 und 29 hinter der Fehlermeldung den nor¬ 
mal angezeigten Fehlern wie zum Beispiel »ILLEGAL 
QUANTITY«. Beispiel: 

EOpa'57,192: LOAD "ABC ", 9 

Existiert 'kein Diskettenlaufwerk mit der Gerätenummer 
9, so führt das Beispiel zu der Fehlermeldung: 

SBARCHjrijiG. POFä ABC 
1/0 ERROR #5 
’E'EVIClB: l'fOT PRESENT 


?LOAD ERROR: 


Ein Programm oder Daten-File konnte nicht fehlerfrei von 
der Datasette oder von dem Diskettenlaufwerk geladen 
werden. Meldet der Computer diesen Fehler, wenn ein Pro¬ 
gramm abgearbeitet wird, so liegt der Fehler nicht am Pro¬ 
gramm, sondern an dem Gerät, von dem es geladen wurde. 
Versuchen Sie daher das gleiche Programm noch einmal 
zu laden. Scheitert auch dieser Versuch, so ist das Pro¬ 
gramm verloren. Meistens kommt ein »LOAD ERROR« 
dann vor, wenn entweder die Diskette oder das Band der 
Kassette mechanisch beschädigt ist. 


7MISSING FILE NAME: 


Weist darauf hin, daß beim LOAD-oder SAVE-Befehl kein 
Name angegeben worden ist, denn die Angabe eines Na¬ 
mens ist bei Operationen mit dem Diskettenlaufwerk unbe- 
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dingt erforderlich, »load "",8 < return>« führt folglich 
zur Fehlermeldung »MISSING FILE NAME«. 

Tritt der Fehler innerhalb eines Programms auf, lassen 
Siesich dieZeile, die hinter der Fehlermeldung angegeben 
ist, LISTen. Folgt dem entsprechenden LOAD- oder SAVE- 
Befehl ein Leerzeichen »"dann ist zwischen den Gän¬ 
sefüßen ein beliebiger Name einzusetzen. Schwieriger 
wird es, wenn der Befehl so aussieht: 

...:load a$,8:... 

Schauen Sie sich in einem solchen Fall den Inhalt der 
Stringvariablen (Zeichenkettenvariable) mit dem Befehl 

PRINT A$ <RETURN> 

an. Sie wird kein einziges Zeichen enthalten. Folglich muß 
unmittelbar vor dem entsprechenden Befehl der Stringva¬ 
riablen A$ ein Name zugewiesen werden. Die Zeile (Bei¬ 
spiel) müßte dann so aussehen: 

...:a$= "Zeichen": load a$,8:... 

Häufig ist aber erwünscht, daß sich mit der gleichen Zeile 
unterschiedliche Programme laden lassen. In einem sol¬ 
chen Fall muß, bevor der LOAD- oder SAVE-Befehl ausge¬ 
führt wird, abgefragt werden, ob die Stringvariable A$ eine 
Zeichenkette enthält. Dazu muß das Programm um eine 
Zeile ergänzt werden, die die erforderliche »IF«-Abfrage 
enthält. Enthält A$ nichts, also nur einen Leerstring, so ist 
der Stringvariablen eine beliebige Zeichenkette zuzuwei¬ 
sen. 

19 IF A$ = "" THEN A$ = "ZEICHEN" 

20 —:LOAD A$,8 


NEXT WITHOUT FOR: 


Erscheint, wenn zur Anweisung NEXT die entsprechen¬ 
de FOR-Anweisung fehlt. Dies kann verschiedene Gründe 
haben: 

1) Im Programm befinden sich mehr NEXT- als FOR-An- 
weisungen. 

2) Es wird versehentlich mit dem Basic-Befehl GOTO in 
eine FOR..NEXT-Schleife gesprungen. 

3) Der Name der Schleifenvariablen (Variable hinter dem 
FOR-Befehl) in der FOR-Anweisung stimmt nicht mit derje¬ 
nigen hinter der NEXT-Anweisung überein. 

4) Es wurde innerhalb einer Schleifenkonstruktion mit 
dem Befehl GOSUB ein Unterprogramm aufgerufen, das 
eine NEXT- ohne entsprechende FOR-Anweisung enthält. 

Fehler dieser Art lassen sich nur sehr schwer beheben. 
Vor allen Dingen dann, wenn das Programm lang und un¬ 
übersichtlich geschrieben wurde. Der gesamte Programm¬ 
ablauf muß zu »Fuß« im Listing nachvollzogen werden. Zu 
jeder FOR-Anweisung ist die entsprechende NEXT-Anwei¬ 
sung zu suchen. Es muß überprüft werden, ob von irgendei¬ 
ner Stelle in die Schleife gesprungen wird, in der der Fehler 
ausgegeben wurde. 

Daher ist es sinnvoll, sich zu jedem Programm einen Ab¬ 
laufplan (Flußdiagramm) anzufertigen, damit der Überblick 
nicht verlorengeht und Fehler, die nur schwer zu beheben 
sind, vermieden werden. 


?NOT INPUT FILE: 


Erscheint, wenn versucht wird, mit den Befehlen 
INPUT # und GET # aus einer Datei etwas zu lesen, die 
zum Schreiben geöffnet wurde, oder wenn als Filenummer 
(erste Zahl hinter dem OPEN-Befehl) »0« eingesetzt wird. 
Versuchen Sie mal im Direktmodus 
0PEN0.3 <RETURN> 

einzugeben. Der Computer meldet sofort einen »NOT IN¬ 
PUT FILE«-Error. Wenn eine Datasette zur Verfügung steht, 
erzeugt das folgende Beispiel die gleiche Fehlermeldung: 

10 0PEN1,1,1,"TEST":REM BANDDATEI ZUM 
SCHREIBEN ÖFFNEN 

20 PRINT#1,"WORT":REM DAS WORT »WORT« IN DIE 
DATEI SCHREIBEN 


30 INPUT#1,A$:REM ERZEUGT DIE FEHLERMELDUNG 
40 CLOSEI:REM KANAL SCHLIESSEN 

Erscheint ein »NOT INPUT FILE«-Error, ist die hinter der 
Fehlermeldung angegebene Zeile zu LISTen. Ist dort die lo¬ 
gische Filenummer hinter dem OPEN-Befehl »0«, so ist sie 
durch eine andere Zahl zu ersetzen. Vorsicht! Alle Ein-/Aus- 
gabe-Befehle, die sich auf diesen OPEN-Befehl beziehen, 
müssen ebenfalls entsprechend geändert werden. 

Steht in der geLISTeten Zeile kein OPEN-, sondern ein 
INPUT#- oder GET#-Befehl, dann ist versucht worden, 
aus einer Datei etwas zu lesen, die nur zum Schreiben ge¬ 
öffnet wurde (siehe Beispiel). Sollte dies eingetreten sein, 
ist zuerst zu überprüfen, ob der INPUT#- oder 
GET#-Befehl an der entsprechenden Stelle richtig ist. 
Wenn der Befehl stimmt, ist eine falsche Filenummer ge¬ 
wählt worden, oder die fehlerhafte Zeile wurde mit dem 
GOTO- beziehungsweise GOSUB-Befehl angesprungen, 
ohne zuvor die geöffnete Datei zum Schreiben zu schlie¬ 
ßen. 


?NOT OUTPUT FILE: 


Es wurde versucht, mit dem Basic-Befehl PRINT # etwas 
in eine Datei zu schreiben, die nur zum Lesen geöffnet wur¬ 
de. Auch dieser Fehler bezieht sich nur auf das Arbeiten mit 
Datasette. Beispiel: 

10 OPEN 1,1,0,"TEST":REM KASSETTENDATEI ZUM LESEN 
ÖFFNEN. ES MUSS EINE DATEI MIT DEM NAMEN TEST 
EXISTIEREN. 

20 A$="ABC":PRINT#1,A$:REM DIESE ZEILE ERZEUGT 
DEN FEHLER 

30 CLOSEI:REM KANAL SCHLIESSEN 

Die gleiche Fehlermeldung erscheint auch dann, wenn 
man die Tastatur (Geräteadresse 0) mit dem Befehl »OPEN 
1 , 0 « i zum Lesen öffnet und versucht, mit dem Befehl 
»PRK: # l, "ABC "« etwas zum Kanal mit der Filenummer »1« 
zu schicken. Das heißt, die Tastatur läßt sich nicht als Aus¬ 
gabegerät verwenden. 

Tritt der Fehler in einem Programm auf, ist er genauso zu 
beseitigen wie der »NOT INPUT FILE«-Error. 


?OUT OF DATA: 


Die Fehlermeldung erscheint, wenn das Programm auf 
den Basic-Befehl READ stößt und entweder keine DATAs 
vorhanden sind oder schon alle gelesen wurden. Beispiel: 

READ A$ <RETURN> 

Wird der Befehl im Direktmodus eingegeben, erscheint 
der »OUT OF DATA«-Error, weil keine DATAs vorhanden 
sind. Meldet der Computer diesen Fehler, sind entweder 
DATAs vergessen worden einzugeben, oder die Schleifen¬ 
variable innerhalb einer FOR..NEXT-Schleife zählt zu weit. 
Beispiel: 

10 FOR 1=0 T0 10 
20 READ A 

30 NEXT I 
40 END 

50 DATA 1,2,3,4,5 

Die Schleifenvariable »I« zählt von 0 bis 10, erwartet also 

11 DATAs. Es sind aber nur fünf DATAs vorhanden. Folglich 
meldet der Computer einen »OUT OF DATA«-Error. 

Wie der Fehler beseitigt wird, dürfte damit wohl auch ge¬ 
klärt sein. Hinweis: Der Fehler tritt zwar in der Zeile auf, de¬ 
ren Zeilennummer hinter der Fehlermeldung ausgegeben 
wird, befindet sich aber niemals in dieser Zeile, sondern im¬ 
mer in der Zeile, die die entsprechenden DATAs enthält. 


?OUT OF MEMORY: 


Dieser Fehler kann verschiedene Ursachen haben: 

1) Der Speicherplatz im Computer reicht nicht für das 
Programm und die Variablen. Häufig tritt der Fehler auf, 
wenn DIM-Anweisungen zu groß gewählt wurden (zum Bei¬ 
spiel »DIM A(10000)«. 
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2) Wenn Maschinenprogramme geladen wurden, deren 
Startadresse über dem freien Basic-Bereich liegen (zum 
Beispiel SMON). In einem solchen Fall schafft der Befehl 
NEW Abhilfe, nachdem das Programm geladen wurde. 

3) Verschachtelungstiefen bei FOR...NEXT-Schleifen 
(maximal 10) oder Unterprogrammaufrufen, mit dem Be¬ 
fehl GOSUB (maximal 24) wurden überschritten. Die häu¬ 
figste Fehlerursache entsteht dadurch, daß in einem Unter¬ 
programm der Befehl RETURN fehlt. 

Wurde die Verschachtelungstiefe überschritten, muß das 
Programm anders aufgebaut werden. FOR...NEXT- 
Schleifen lassen sich zum Beispiel durch IF-Abfragen er¬ 
setzen. Beispiel 
10 FOR 1=0 TO 10 
20 A=A+1 
30 NEXT I 
ist identisch mit 
10 A=A+1 
20 1 = 1+1 

30 IF I < >10 THEN 10 


70VERFL0W: 


Entweder liegt das Ergebnis oder ein Zwischenergebnis 
eines Ausdrucks außerhalb des zulässigen Zahlenbe¬ 
reichs. Jedes Ergebnis muß zwischen »+/-1.37E38« 
liegen. Beispiel: 

PRINT 9*2E37/100 <RETURN> 

Wird dieses Beispiel eingegeben, erscheint der »OVER- 
FLOW«-Error. Formt man das Beispiel um, so läßt sich die¬ 
ser Ausdruck durchaus berechnen: 

PRINT 9/100*2E37 

Der Fehler ist dadurch entstanden, daß das Zwischener¬ 
gebnis »9*2E37« den zulässigen Zahlenbereich überschrit¬ 
ten hat. Im Falle eines »OVERFLOW«-Errors ist also ein 
Ausdruck so abzuändern, daß kein Zwischenergebnis den 
zulässigen Wert überschreitet. 


?REDIM'D ARRAY: 


Das Programm trifft zweimal auf dieselbe DIM-Anwei- 
sung. Eine Feldvariable (zum Beispiel A(20)) darf in einem 
Programm nur ein einziges Mal dimensioniert werden. 
Beispiel: 

10 DIM A(20) 

20 GOTO 10 

Es tritt ein »?REDIM’D ARRAY ERROR IN 10« auf. Dieser 
Fehler läßt sich meistens dadurch vermeiden, daß alle be¬ 
nötigten DIM-Anweisungen in die erste Programmzeile ver¬ 
legt werden. Weiterhin sollte darauf geachtet werden, daß 
auf alle möglichen DIM-Zeilen kein GOTO-Sprung erfolgt. 
Wenn sich dies nicht vermeiden läßt, kann man ja ein CLR: 
vor den DIM-Befehl setzen. Dann werden allerdings auch 
alle anderen Variablen gelöscht. Beispiel: 

10 CLR : DIM A(20) 

20 GOTO 10 

Diesmal tritt kein Fehler auf. 


?REDO FROM START: 


Eine INPUT-Anweisung erwartet die Eingabe einer Zahl; 
es wurden jedoch Buchstaben oder Zeichen eingegeben. 
Die ganze INPUT-Anweisung wird noch einmal bearbeitet. 

10 INPUT A 
20 PRINT A 

Starten Sie das Programmm mit »RUN« und geben Sie 
zum Beispiel ein »X« ein (plus »RETURN«-Taste). Der Com¬ 
puterwird dies mit der beschriebenen Fehlermeldung quit¬ 
tieren und die INPUT-Anweisung noch einmal ausführen. 
Es dürfen nur Zahlen eingegeben werden! Ausnahme ist 
der Buchstabe »E« zur Kennzeichnung von Exponential¬ 
zahlen (zum Beispiel 1.5E+3, also 1,5mal 10 hoch 3) 


Tip: Überprüfen Sie Ihre Eingabe noch einmal sorgfältig 
auf unerlaubte Zeichen. 


7RETURN WITHOUT GOSUB: 


Der Computer trifft auf ein »RETURN«, ohne daß zuvor 
ein »GOSUB« aufgetreten ist. Beispiel: 

10 RETURN 

Wenn Sie das Programm starten, tritt sofort der genannte 
Fehler auf. Aber: Es kann auch sein, daß zwar eine 
GOSUB-Anweisung auftritt, aber der Computer einen 
zweiten RETURN-Befehl findet. Häufigste Ursache: Ein 
Programm mit einem oder mehreren Unterprogrammen 
hat nach Beendigung des Hauptteils keine END-Anwei- 
sung und »läuft« deshalb unbeabsichtigt in die erste Unter¬ 
routine. An deren Ende trifft der C64 dann auf ein RE¬ 
TURN, ohne daß jedoch ein GOSUB gegeben wurde. 
Beispiel: 

10 REM HAUPTPROGRAMM 
20 GOSUB 100 
30 REM HAUPTPROGRAMMENDE 
100 REM UNTERPROGRAMM 
110 RETURN 

Haben Sie den Fehler entdeckt? Zuerst wird in Zeile 20 
die Unterroutine ab Zeile 100 korrekt mit GOSUB ange¬ 
sprungen und mit RETURN beendet. Dann jedoch bearbei¬ 
tet der C64 Zeile 30, Zeile 100 und dann Zeile 110! Abhilfe: 
Am Ende des Hauptteils eine END-Anweisung. Beispiel: 
40 END 


7STRING TOO LONG ERROR: 


a) Eine Stringvariable enthält mehr als die erlaubten 255 
Zeichen, oder 

b) Es wurde mittels INPUT# eine Zeichenkette eingele¬ 
sen, die mehr als 89 (!) Zeichen enthält. Beispiele: 

10 A$= "X" 

20 FOR 1=1 TO 500 
30 A$=A$+"X" 

40 PRINT LEN(A$) 

50 NEXT I 

In Zeile 30 wird der String A$ immer um ein Zeichen er¬ 
weitert. Zeile 40 informiert über die aktuelle Länge des 
Strings. Sobald er mehr als 255 Zeichen enthält, wird ein 
»7STRING TOO LONG ERROR IN 30« ausgegeben, 
b) 

10 OPEN 1,8,1,"TEST,S,W" 

20 FOR 1=1 T0 100 
30 PRINT #1,"X"; 

40 NEXT I 
50 CL0SE 1 

60 OPEN 1,8,0,"TEST,S,R" 

70 INPUT #1,A$ 

80 PRINT A$ 

90 CLOSE 1 

Der erste Programmteil (Zeilen 10 bis 50) eröffnet eine 
Datei auf Diskette und schreibt 100 Zeichen direkt hinter¬ 
einander in diese Datei. Direkt hintereinander deshalb, weil 
in Zeile 30 nach dem PRINT #-Befehl ein »;« steht. 

Der zweite Programmteil (Zeilen 60 bis 80) versucht nun, 
diese 100 Zeichen auf einmal in die Variable A$ einzulesen 
(was natürlich nicht funktioniert). 

Um diesen Fehler zu verstehen, muß man sich die Funk¬ 
tionsweise des INPUT#-Befehls vor Augen führen: 
INPUT # liest solange Zeichen in die angegebene Varia¬ 
ble, bis in der Datei das erste »carriage return« (CHR$(13)) 
folgt. Dieses Zeichen, kurz »er« genannt, wird beim Schrei¬ 
ben von Daten in eine Datei immer genau dann gesendet, 
wenn der PRINT#-Befehl nicht mit einem »,« oder»;« en¬ 
det. Im Beispielprogramm wird in Zeile 30 durch das »;« 
nach dem PRINT#-Befehl das Senden des »er« verhin- 
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dert. Deshalb meldet der Computer beim INPUT # in Zeile 
70 einen STRING TOO LONG ERROR, sobald er merkt, 
daß nach dem 89. Zeichen immer noch kein »er« in der Datei 
aufgetaucht ist. Die Daten werden nämlich nicht sofort in 
die Variable A$ eingelesen, sondern erst in einen Zwi¬ 
schenpuffer; und dieser kann nicht mehr als 89 Zeichen 
aufnehmen. Um unser Programm doch noch lauffähig zu 
machen, müßte man den INPUT#-Befehl durch eine FOR- 
NEXT-Schleife mit einer GET#-Anweisung ersetzen (die¬ 
se liest immer nur ein einziges Zeichen). Also: 

70 FOR 1=1 TO 100 : GET#1,B$ : A$=A$+B$ : NEXT I 
Wenn in einem Programm ein STRING TOO LONG ER¬ 
ROR in einer Zeile mit einer INPUT#-Anweisung auftritt, 
ist der Fehler also nicht in dieser Zeile, sondern in der Routi¬ 
ne zu suchen, die die Daten in die Datei geschrieben hat. 
Diese muß vor dem Senden eines Strings über die LEN- 
Funktion erst einmal testen, ob er die vorgeschriebene Län¬ 
ge von 89 Zeichen nicht überschreitet. 


7SYNTAX ERROR: 


Kann mehrere Gründe haben: 

a) Generell ist die Syntax eines Befehls, also seine 
Schreibweise, von Ihnen falsch eingegeben worden. 

b) In einer DATA-Zeile steht ein Zeichen oder eine Zei¬ 
chenfolge, obwohl der READ-Befehl eine Zahl erwartet. 

c) Das erste Zeichen des Basic-Speichers ist nicht Null. 

Beispiele: 

a) Allgemein tritt der Syntax-Error auf, wenn der Basic-In- 
terpreter einen Befehl nicht versteht, also wenn Sie sich 
beim Schreiben eines Programms vertippt haben. Über¬ 
prüfen Sie daher die Zeile, in der der Fehler auftrat, noch 
einmal sorgfältig, ob Sie die Befehle alle richtig geschrie¬ 
ben oder irgendein Zeichen vergessen haben! Häufigster 
Tippfehler aller Programmierer: »rum« statt »RUN«,. 

Dieser Fehler tritt auch auf, wenn in einer Variable 
Weisung nicht alle Klammern geschlossen wurden. Bei¬ 
spiel: a=(2+(3*4). Es fehlt eine »Klammer zu«. Oder: 
A=2+(3*4)). Eine Klammer wurde zu viel geschlossen, 

b) 

10 READ A,B,C 
20 DATA 67, Z, 20 

Es tritt ein Syntax-Error in Zeile 20 (!) auf, da die READ- 
Anweisung in Zeile 10 drei Zahlen als DATA-Werte erwartet. 
Die »zweite Zahl« ist jedoch ein Buchstabe. 

Tip: Wenn Sie in DATA-Zeilen Zahlen und Buchstaben zu¬ 
sammen verwenden möchten und es tritt dieser Fehler auf, 
dann überprüfen Sie, ob Sie die Werte auch in der richtigen 
Reihenfolge auslesen. 

c) Besonders tückisch: Wenn aus irgendeinem Grund 
der Inhalt der ersten Basic-Adresse nicht Null ist, so tritt bei 
der Eingabe von »RUN« oder »NEW« ein Syntax-Error auf. Dies 
ist meistens der Fall, wenn Sie den Basic-Start (Adressen 
43 und 44) verändert haben, zum Beispiel, um eine Basic- 
Erweiterung zu verwenden. 

Abhilfe: P0KE(PEEK(43)+PEEK(44)#256-l),0 


n 


?TOO MANY FILES: 


Es wurden mehr als die maximal erlaubten zehn Dateien 
(über einen OPEN-Befehl) eröffnet. Beispiel: 

10 OPEN 1,3 70 OPEN 7,3 

20 OPEN 2,3 80 OPEN 8,3 

30 OPEN 3,3 90 OPEN 9,3 

40 OPEN 4,3 100 OPEN 10,3 

50 OPEN 5,3 110 OPEN 11,3 

60 OPEN 6,3 

Sicherlich, dies ist ein extremes Beispiel, das im »Alltags¬ 
betrieb« nie auftreten wird, aber ebenso ist es mit dieser 
Fehlermeldung. Sollte also bei Ihnen dieser Fehler auftre¬ 
ten, so sollten Sie sich ernsthaft Gedanken darüber machen, 
ob Sie wirklich so viele offene Datenkanäle benötigen. 


7TYPE MISMATCH: 


Tritt auf, wenn versucht wird, eine Zeichenkette in einer 
numerischen Variablen abzulegen. Beispiele: 

A= "TEST" oder A=A$ 

Untersuchen Sie die Zeile, in der der Fehler aufgetreten 
ist. Meistens wurde nur das $-Zeichen vergessen. 


?UNDEF’D FUNCTION: 


Eine mathematische Funktion wurde angesprochen, oh¬ 
ne vorher definiert worden zu sein. Beispiel: 

10 A=FN X(2) 

Wenn Sie trotzdem der Meinung sind, die entsprechende 
Funktion definiert zu haben, so überprüfen Sie den verwen¬ 
deten Funktionsnamen noch einmal. Zur Veranschauli¬ 
chung hier noch einmal die Syntax der FN-Anweisung: 
Definieren: DEF FN name(variable)=funktion 
Aufruf: variable=FN name(wert oder variable) 

Ein korrektes Beispiel: 

10 DEF FN TEST(X)=X*2 
20 A=FN TEST(2) 

30 PRINT A 


?UNDEF'D STATEMENT: 


a) Über RUN, goto oder G0SUB wurde eine Zeile angespro¬ 
chen, die nicht existiert. 

b) Es wurde versucht, eine Variable als Sprungziel zu ver¬ 
wenden. Beispiel: 

a) 

10 GOTO 100 
20 END 

Dieser Fehler ist äußerst einfach zu beheben: 

Zeile, in der der Fehler auftrat, listen, und überprüfen, ob 
die angesprochene Zeile wirklich vorhanden ist. Dann die 
GOTO oder GOSUB-Anweisung entsprechend ändern. 

b) 

10 A=100 : GOTO A 
100 END 

Obwohl die Zeile 100 existiert, tritt der Fehler auf. Es darf 
nicht über eine Variable zu einer bestimmten Zeile ge¬ 
sprungen werden. Es gibt aber die Möglichkeit, über einen 
ON-GOTO-Befehl einen berechneten Sprung auszuführen: 

10 INPUT "SPRUNG NACH ZEILE? ";A 
20 A=A/100 : ON A GOTO 100,200,300 
100 PRINT "ZEILE 100" : END 
200 PRINT "ZEILE 200" : END 
300 PRINT "ZEILE 300" : END 
Beachten Sie aber, daß der ON-GOTO-Befehl wie folgt ar¬ 
beitet: 

Wenn A=1, dann GOTO 100, wenn A=2, dann GOTO 200,... 
Deshalb muß die eingegebene Zahl auch erst in dieses For¬ 
mat umgerechnet werden (a=a/ioo). 


7VERIFY ERROR: 


Durch ein VERIFY-Kommando wurde festgestellt, daß das 
Programm im Speicher mit dem auf Datasette beziehungs¬ 
weise Diskette nicht übereinstimmt. Deutet bei Datasetten- 
betrieb meistens auf ein fehlerhaftes Band hin. Verwenden 
Sie dann eine neue Kassette. 

Diese Fehlermeldung ist bei Diskettenbetrieb äußerst un¬ 
wahrscheinlich, da die Floppy beim Speichern eines Pro¬ 
gramms automatisch einen Verify durchführt. Eventuell 
schadhafte Disketten werden daher schon frühzeitig er¬ 
kannt. Generell kann man sagen, daß beim Arbeiten mit ei¬ 
ner Floppy das »Verifizieren« entfallen kann. Nützlich dage¬ 
gen ist es bei der Programmentwicklung, wenn man nicht 
sicher ist, ob man die aktuelle Version schon gespeichert 
hat. Hier bringt ein Verify die Antwort. 

(Achim Hübner/ef) 
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S olange der Computer noch brav seine Fehlermeldung 
ausgibt, hat man ja Glück gehabt. Kritisch wird die Si¬ 
tuation dann, wenn auf dem Bildschirm so ein eigenar¬ 
tiges Gemisch undefinierbarer Zeichen erscheint und sich 
der Computer weder durch Betätigen aller erreichbaren Ta¬ 
sten noch durch gutes Zureden beeinflussen läßt. 

Wer letzteres schon einmal erlebt hat, wird unserer er¬ 
sten Regel sicher zustimmen: Jedes Programm sollte vor 
dem Start unbedingt mit »SAVE« gesichert werden. 

Das Retten des mühevoll erstellten Programms ist aller¬ 
dings noch nicht die Lösung, denn der Fehler ist nach wie 
vor vorhanden. Also beginnt die Fehlersuche. Diesen Vor¬ 
gang bezeichnet man auch als »Debugging«. Das Wort ist 
von der englischen Bezeichnung »Bug« abgeleitet und be¬ 
deutet eigentlich »entwanzen«, wobei mit den »Wanzen« 
die Fehler gemeint sind, die sich überall im Programm ver¬ 
stecken. In der amerikanischen Umgangssprache hat sich 
das Wort »Debugging« ganz allgemein für das Suchen von 
Fehlern eingebürgert. 

Ganz grob kann man zwischen zwei Arten von Fehlern 
unterscheiden. Einerseits gibt es die logischen Fehler, die 
mit schöner Regelmäßigkeit in der Entwicklungsphase ei¬ 
nes Programms auftauchen, weil man dem Computer noch 
nicht genau genug gesagt hat, was er nun eigentlich tun 
soll. Diese Art von Fehlern erkennt man meist daran, daß 
das Programm anstandslos läuft, aber nicht immer die ge¬ 
wünschten Ergebnisse produziert. Die zweite Art von Feh¬ 
lern tritt vorwiegend auf, wenn man ein Programm von ei¬ 
nem fremden Listing oder von den eigenen Aufzeichnun¬ 
gen abtippt: Es handelt sich dann zumeist um schlichte 
Tippfehler oder um Fehler, die auf schlechte Lesbarkeit der 
Vorlage beruhen. Wir wollen uns im folgenden nur mit der 
zweiten Art von Fehlern beschäftigen. 

Wie geht man nun zweckmäßigerweise vor, um alle Feh¬ 
ler zu finden, ohne das gesamte Programm von Anfang bis 
Ende mit der Vorlage Zeichen für Zeichen vergleichen zu 
müssen? Nun, eine allgemeingültige Methode, die für alle 
Arten von Programmen anwendbar wäre, gibt es leider 
nicht. Dennoch ist ein systematisches Vorgehen ange¬ 
bracht. 

Der Computer hilft bei der Fehlersuche 


Zunächst sollten wir uns darüber klarwerden, inwieweit uns 
der Computer selbst bei der Suche nach Fehlern helfen 
kann. Als erstes kommen einem dabei natürlich die Fehler¬ 
meldungen in den Sinn, die beim Commodore-Basic ja er¬ 
freulicherweise im Klartext erfolgen und recht vielfältig 
sind. Was die einzelnen Fehlermeldungen bedeuten und 
jeweils ein paar Tips zur Fehlersuche finden Sie in dem Arti¬ 
kel »Mein Computer versteht mich nicht« auf der Seite 129. 
Wir wollen uns hier mit den »härteren Fällen« beschäftigen. 

Was soll man beispielsweise tun, wenn der Computer gar 
keine Fehlermeldung ausgibt, sondern sich nach »RUN« 
sang- und klanglos verabschiedet und auf keinen Tasten¬ 
druck reagiert. 

Für solche Fälle bietet Basic zwei spezielle Befehle, die 
man immer dann einsetzen sollte, wenn man nicht genau 
weiß, an welcher Stelle des Programms der Fehler steckt. 
Gemeint sind die Basic-Befehle STOP und CONT. Wenn 
der Computer beim Abarbeiten des Programms auf den 
Befehl STOP stößt, unterbricht er die Programmausführung 
und gibt eine Meldung »BREAK IN nnn« aus, wobei nnn die 
Zeilennummer ist, in der er die STOP-Anweisung gefunden 
hat. Alle Variablen und auch der Stackpointer bleiben dabei 
erhalten, so daß die STOP-Anweisung auch in Unterpro¬ 
grammen oder innerhalb von FOR-NEXT-Schleifen ver¬ 
wendet werden kann. 


Nach einem so erzwungenen Programmstopp kann man 
sich im Direktmodus mit dem PRINT-Befehl über die Werte' 
aller wichtigen Variablen informieren und sogar mit LIST 
einzelne Programmteile anschauen. Danach gibt man den 
CONT-Befehl, und das Programm wird ganz normal fort¬ 
gesetzt. Wenn es zu Testzwecken notwendig erscheint, 
kann man während eines Stopps auch im Direktmodus Va¬ 
riablenwerte verändern oder FOR-NEXT-Schleifen ver¬ 
wenden. Allerdings dürfen weder neue Programmzeilen 
eingegeben noch alte gelöscht oder verändert werden, da 
dadurch alle Variablen gelöscht werden und CONT an¬ 
schließend nicht mehr möglich ist. 

Es ist empfehlenswert, an mehreren kritischen Stellen 
des Programms STOP-Befehle einzufügen, um den Pro¬ 
grammlauf verfolgen zu können und den Fehler immer 
mehr einzugrenzen. Kritische Stellen sind generell und oh¬ 
ne Ausnahme alle SYS- und USR-Aufrufe, desgleichen alle 
POKE-Befehle, über deren Bedeutung man sich nicht hun¬ 
dertprozentig im klaren ist. Im Zweifelsfalle sollte man auch 
nach jedem GOSUB im Programm zunächst einen STOP- 
Befehl einbauen, um sicherzugehen, daß das Unterpro¬ 
gramm auch wieder auf normalem Wege verlassen wird. 

Jedesmal, wenn man durch davor oder danach plazierte 
STOP-Befehle festgestellt hat, daß beispielsweise ein SYS- 
Befehl ordnungsgemäß abgearbeitet wird, kann man die 
STOPs natürlich wieder entfernen, um einen flüssigeren 
Programmablauf zu erreichen. Es empfiehlt sich, alle ein¬ 
gefügten STOP-Befehle auf einem Zettel zu notieren, um 
die Übersicht zu behalten. Schließlich dienen die Befehle 



nur der Fehlersuche und müssen irgendwann alle wieder 
entfernt werden. 

In vielen Fällen kann man STOP-Anweisungen durch ein¬ 
fache PRINT-Anweisungen ersetzen. Das hat den Vorteil, 
daß keine Programmunterbrechung stattfindet und man 
nicht jedesmal CONT eintippen muß. Außerdem kann man 
in PRINT-Anweisungen auch zusätzliche Informationen 
geben, zum Beispiel Variablenwerte ausdrucken oder di¬ 
rekt auf ein spezielles Problem aufmerksam machen. 

Diese PRINT-Anweisungen sollten aber in irgend¬ 
einer Weise von den normalen Bildschirm¬ 
ausgaben unterscheidbar sein. Zum 
Beispiel kann man jede PRINT- 

Dem*® 
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Anweisung zur Fehlersuche mit fünf Sternchen oder fünf 
Pluszeichen beginnen lassen. 

Will man sich mehrere Variable während des Programm¬ 
laufs ausdrucken lassen, sind kleine Unterprogramme 
recht hilfreich, die in einem freien Zeilenbereich geschrie¬ 
ben werden und die alle benötigten Ausgaben durchfüh¬ 
ren. Am Ende solcher Unterprogramme sollte eine GET- 
Scheife stehen, die das Programm auf Tastendruck weiter¬ 
laufen läßt. Statt langer PRINT-Listen braucht man so nur 
einen GOSUB-Aufruf überall dort im Programm einfügen, 
wo dies sinnvoll erscheint. 

Das Arbeiten mit STOP und CONT mag manchem Com¬ 
puterneuling etwas ungewohnt erscheinen, aber es ist je¬ 
denfalls ein recht sicheres Mittel, einem immer wieder ab¬ 
stürzenden Programm auf die Schliche zu kommen. 

Wenn der C64 nur noch 
»Bahnhof« versteht... 

Die häufigste Fehlermeldung ist sicherlich der ungeliebte 
»SYNTAX ERROR«. Solange der Computer nur Syntax- 
Fehler meldet, kann man noch von Glück reden. Es handelt 
sich dabei meistens um einfache Tippfehler, die nach Aufli¬ 
sten der entsprechenden Zeile leicht zu finden und zu korri¬ 
gieren sind. 

Häufige Fehler sind zum Beispiel fehlende oder überzäh¬ 
lige Klammern und die Verwechslung ähnlicher Zeichen 
wie zum Beispiel »0« und »O«, »1« und »I« oder »8« und »B«. 
Sehr häufig ist auch die Verwechslung von Punkt und Kom¬ 
ma, was sich besonders in DATA-Zeilen verhängnisvoll aus¬ 
wirken kann, wie wir nachher noch sehen werden. Wenn 
Sie also irgendwo einen »SYNTAX ERROR« gemeldet be¬ 
kommen und in der fraglichen Zeile auf Anhieb keinen Feh¬ 
ler finden, dann gehen Sie zuerst die vorhin genannten 
Punkte durch. 

Eine gute Hilfe ist es, mit dem Cursor die fehlerhafte Zeile 
Zeichen für Zeichen abzufahren und dabei mit der Vorlage 
zu vergleichen. Kommen in der Fehlerzeile viele Klammern 
vor, dann empfiehlt sich häufig das Anlegen einer Strichli¬ 
ste für öffnende und schließende Klammern. Die Anzahl 
muß innerhalb jeder Basic-Anweisung übereinstimmen. 
Aber bitte keine Klammern mitzählen, die in Ausführungs¬ 
zeichen stehen, diese haben mit der »Syntax« nichts zu tun. 

Ab und zu kann es Vorkommen, daß man bei aller Sorg- 
fallt einen Syntaxfehler nicht findet, wie zum Beispiel in der 
folgenden Basic-Zeile: 

10 OPEN 1,4: PRINT #1, "HALLO ":CL0SE 1 

Wenn der Computer hier dennoch einen Syntaxfehler 
meldet, dann kann das nur eine Ursache haben: Bei der 
Eingabe dieser Zeile wurden die Basic-Befehle in der be¬ 
kannten Art und Weise abgekürzt, der zweite Befehl dabei 
aber als »? #1« eingegeben, was beim Auflisten wieder zu 
»PRINT#1« wird. Leider sind 
PRINT und PRINT# 


lig verschiedene Befehle, genauso wie INPUT und 
INPUT # oder GET und GET #. Also bitte bei der abgekürz¬ 
ten Eingabe von »PRINT#« unbedingt die im Handbuch 
angegebene Form <PxSHIFT R> statt <?><#> 
verwenden. Die normale PRINT-Routine weiß nämlich mit 
dem nachfolgenden » # « nichts anzufangen, und es kommt 
zu einer Fehlermeldung. 

Eine ähnliche Situation kann sehr leicht bei der Verwen¬ 
dung langer Variablennamen auftreten. In einem Spielpro¬ 
gramm »Schiffe versenken« kann zum Beispiel folgende 
Zeile auftreten: 

10 ANZAHLSCHIFFE = 12 

In dieser Zeile wird unweigerlich ein »SYNTAX ERROR« 
auftreten, weil der Computer innerhalb des Variablenna¬ 
mens »ANZAHLSCHIFFE« das Basic-Schlüsselwort »IF« 
entdeckt und sich bei aller Anstrengung nicht erklären 
kann, was eine IF-Abfrage an dieser Stelle soll. Trotz aller 
Vorteile für die Übersichtlichkeit eines Programms sei da¬ 
her an dieser Stelle von der Benutzung langer Variablenna¬ 
men abgeraten. 

Eine andere häufig auftretende Fehlermeldung ist vor al¬ 
lem von Anfängern gefürchtet, nämlich »OUT OF DATA ER- 

Wns tun bei »OUT OF DATA«? 


ROR«. Gefürchtet ist dieser Fehler deswegen, weil die Zei¬ 
lennummer, die der Computer zu dieser Fehlermeldung 
ausgibt, in den meisten Fällen keinen Hinweis darauf gibt, 
an welcher Stelle der eigentliche Fehler liegt. Listet man 
nämlich die als fehlerhaft angegebene Zeile am Bildschirm 
auf, so findet man dort nur den READ-Befehl, für den keine 
DATAs mehr vorhanden waren. Einen näheren Hinweis er¬ 
hält inan durch: 

Print PEEK(63) + 256 # PEEK(64) 

Dieser Befehl listet die Zeilennummer der zuletzt gelese¬ 
nen DATA-Zeile. Ein typisches, wenn auch stark vereinfach¬ 
tes Beispiel für das Auftreten von Fehlern im Zusammen¬ 
hang mit DATA-Anweisungen, ist in Listing 1 gegeben. In 
den Zeilen 100 bis 170 wird eine Prüfsumme über den er¬ 
sten DATA-Block gebildet, und nur dann, wenn diese Prüf¬ 
summe in Ordnung ist, wird in den nächsten Programmteil 
verzweigt, wo aus dem zweiten DATA-Block Zahlen gelesen 
und an den Anfang des Bildschirms gePOKEt werden und 
dort das Wort »COMMODORE« bilden sollen. 

Das Programm enthällt nun einige Fehler in den DATA- 
Zeilen, die wir gemeinsam herausfinden wollen. Stellen wir 
uns einfach vor, wir hätten das Programm in Listing 1 aus 
einer Zeitschrift abgetippt und dabei einige Fehler in den 
DATA-Zeilen fabriziert. In Listing 2 sind zum Vergleich noch 
einmal die entsprechenden DATA-Zeilen des »Original«-Li- 
stings abgedruckt. Die Fehlersuche erscheint somit recht 


540t » ut d er Spur 

™ Diese Situation kennt wohl jeder: 

Da tippt man stundenlang ein Programm ab und lehnt 
sich nach dem letzten »RETURN« erleichtert 
zurück. Jetzt folgt das magische »RUN« - und nichts läuft. 
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einfach: Man vergleicht die paar DATAs in den beiden Li- 
stings und wird dann schon den Fehler finden. Für dieses 
kurze Testprogramm stimmt das natürlich auch. Aber stel¬ 
len wir uns einmal vor, daß die beiden DATA-Blöcke insge¬ 
samt vielleicht über drei volle Listing-Seiten gehen und 
nicht nur über drei Zeilen wie in unserem Beispiel. Dann 
lohnt es sich mit Sicherheit, wenn man etwas systemati¬ 
scher an die Fehlersuche herangeht. 

Zuerst starten wir unser Programm nach Listing 1 einmal 
ganz arglos mit RUN, nachdem wir es vorher gespeichert 
hatten. Der Programmablauf ist zu Anfang ganz wie erwar¬ 
tet: Der Bildschirm wird gelöscht, es erscheint die Meldung 
»S = 282« und darunter »OK«, dann jedoch erscheinen am 
oberen Bildschirmrand statt eines längeren Wortes nur die 
beiden Zeichen »%« und »C« und das Programm bricht mit 
der Meldung »? ILLEGAL QUANTITY ERROR IN 230« ab. 
Was ist hier geschehen? 

Wenn wir uns Zeile 230 auflisten lassen, dann sehen wir: 

230 POKE B+I,X 

Da wir wissen, daß nur Zahlen zwischen 0 und 255 
gePOKEt werden können, vermuten wir den Fehler beim 
Wert der Variablen »X«. Um unsere Vermutung zu bestäti¬ 
gen, fragen wir den Computer doch einmal ganz einfach 
nach dem Wert von X, indem wir eintippen: 

PRINT X 

Anschließend bestätigen wir mit der RETURN-Taste. Wir 
erhalten als Antwort den Wert 1513, der tatsächlich zu groß 
ist, um in eine Speicherzelle zu passen. Wir vergleichen 
den zweiten DATA-Block mit dem Original (Listing 2) und 

Kein Verlaß auf Prüfsummen 


stellen fest, daß wir bei der Eingabe das Komma zwischen 
den Zahlen 15 und 13 in Zeile 360 vergessen haben. Das 
ändern wir, indem wir das Komma nachträglich einfügen. 

Dank dieses schnellen Erfolges bessert sich unsere 
Stimmung um einiges, was sich jedoch nach dem nächsten 
RUN sehr schnell wieder ändert. Zwar erscheint am Bild¬ 
schirm zunächst ganz ordentlich die Prüfsumme des er¬ 
sten DATA-Blockes und das dazugehörige »OK«, aber am 
oberen Bildschirmrand stimmt einiges noch nicht: Man liest 
dort die Zeichenfolge »%%COMMOORE« statt »COMMO- 
DORE«. 

Auf den ersten Blick würde man vielleicht vermuten, daß 
der Fehler nur im zweiten DATA-Block stehen kann, weil das 
Lesen des ersten Blocks keine Fehlermeldung erzeugt und 
sogar die Prüfsummenbildung stimmt. Diese Überlegung 
ist nicht ganz schlüssig. Denn durch Bildung einer einfa¬ 
chen Prüfsumme werden Vertauschungsfehler und über¬ 
flüssige oder fehlende Nullen nicht erkannt. Die fünf DATA- 
Zeilen in Listing 3 ergeben zum Beispiel alle die gleiche 
Prüfsumme. 

Man sollte sich also nie blindlings auf Prüfsummen ver¬ 
lassen. Sie sind zwar oft nützlich, um Fehler in DATA-Zeilen 
festzustellen, man darf aber aus der Richtigkeit der Prüf¬ 
summenprobe niemals schließen, daß kein Fehler enthal¬ 
ten sein kann. Außerdem taucht eine weitere Schwierigkeit 
auf: Wenn man nur eine globale Prüfsumme über alle DA¬ 
TAs bildet, dann kann man zwar unter Umständen einen 
Fehler nachweisen, weiß aber immer noch nicht, wo er 
steckt. Da muß man dann schon zu anderen Mitteln greifen. 

Um den Fehler aufzuspüren, können wir dem Computer 
einen großen Teil der Arbeit überlassen. Als erstes wollen 
wir feststellen, in welchem der beiden DATA-Blöcke der 
Fehler liegen könnte. Dazu veranlassen wir den Computer 
einfach, nur den ersten DATA-Block zu lesen, indem wir ei¬ 
ne STOP-Anweisung hinter die erste FOR-NEXT-Schleife 


plazieren. Wir fügen also folgende Zeile ins Programm ein: 

145 STOP 

Wenn wir das Programm jetzt starten, erhalten wir die 
Meldung »BREAK IN 145«, die von unserem STOP-Befehl 
herrührt. Da aber das Programm bis Zeile 145 durchlaufen 
wurde, muß der erste DATA-Block an dieser Stelle vollstän¬ 
dig gelesen worden sein. Die Variable »X« erhält natürlich 
immer noch den zuletzt gelesenen DATA-Wert. Wenn die¬ 
ser Programmteil richtig gearbeitet hat, dann müßte X jetzt 
den Wert 0 haben, denn dies ist ja gerade der letzte DATA- 
Wert aus Block 1, wie man anhand von Listing 1 oder 2 un¬ 
schwer erkennen kann. Das können wir einfach nachprü¬ 
fen, indem wir den Computer nach dem Wert »X« fragen: 
PRINT X 

Zu unserem Erstaunen ist die Antwort aber nicht 0, son¬ 
dern 12. Wir werfen wieder einen Blick auf Listing 1 und 
stellen fest, daß die Zahl 12 die vorletzte Zahl im ersten 
DATA-Block ist. Offenbar wurde eine Zahl zuwenig gelesen! 
Es ist nun verlockend, einfach den Endwert der ersten 
FOR-NEXT-Schleife um eins zu erhöhen, um alle Werte 
des ersten Blocks zu lesen. Doch halt, hier ist Vorsicht ge¬ 
boten. Viel wahrscheinlicher als ein Fehler in einer FOR- 
NEXT-Schleife ist ein Fehler insienbalb der DATA-Zeilen. 
Bei so vielen Zahlenangaben kann man sich schließlich 
leicht mal vertippen. 

Betrachten wir das Problem einmal von der anderen Sei¬ 
te. Wenn die Anzahl der gelesenem X-We.rte stimmt, das 
Programm aber trotzdem nur bis zum vorletzten DATA-Wert 
kommt, dann enthält Block 1 vielleicht einen DATA-Wert zu¬ 
viel. Wir wollen also die DATAs in Block 1 ganz gezielt über¬ 
prüfen. Dazu schreiben wir in einen freien Zeilenbereich, 
zum Beispiel ab Zeile 1000, das folgende kleine Unterpro¬ 
gramm- 

1000 PRINT "I =" ; I , "X =" ; X 

1010 GET A$ : IF A$ <>CHR$(32) THEN 1010 

1020 RETURN 

In die erste FOR-NEXT-Schleife fügen wir direkt hinter 
die READ-Anweisung einen Aufruf dieses Unterpro¬ 
gramms ein: 

125 G0SUB 1000 

Wenn wir das Programm nun laufen lassen, geschieht 
folgendes: Der Computer gelangt mit Zeile 110 in die Lese¬ 
schleife. In Zeile 120 wird jeweils ein DATA-Element gele¬ 
sen. Dann erfolgt mit der eingefügten Zeile 125 ein Sprung 

Hilfsprogramm bei DATA-fehlem 


in das vorhin geschriebene Unterprogramm. Dieses Unter¬ 
programm druckt den Wert der Zählvariablen »I« und den 
soeben gelesenen DATA-Wert »X« aus und wartet dann, bis 
die Leertaste betätigt wird. Dann kehrt das Unterprogramm 
zurück und die Schleife wird nach dem NEXT in Zeile 140 
erneut durchlaufen. 

Auf diese Weise erhält man auf dem Bildschirm eine 
übersichtliche Darstellung der gelesenen DATA-Werte, die 
man leicht mit der Vorlage vergleichen kann. Wenn wir das 
Programm jetzt starten, erhalten wir jeweils nach Drücken 
der Leertaste eine Bildschirmanzeige etwa in folgender Art: 


1 = 1 

X = 12 

CM 

II 

FH 

x = 33 

I = 3 

X = 11 


und so weiter - bis schließlich das Ende von DATA-Zeile 
310 erreicht wird: 

1=9 X = 18 

I = 10 X = 0 
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Nanu? Das hatten wir eigentlich nicht erwartet. X=18 ist 
der letzte Wert in Zeile 310 und es sollte eigentlich der erste 
Wert aus der nächsten DATA-Zeile gelesen werden, näm- 
lichX=11. Woher kommt dieser Wert Null bei 1=10? Ein Ver¬ 
gleich von Zeile 310 in Listing 1 (abgetippt) mit Listing 2 (Ori¬ 
ginal) führt uns auf des Rätsels Lösung. Offenbar haben wir 
beim Abtippen am Ende von Zeile 310 noch ein Komma ge¬ 
setzt, was dort nicht hingehört. Ein Komma in einer DATA- 
Anweisung trennt für unseren C 64 aber immer zwei Werte 
voneinander. Da er hinter dem letzten Komma nichts mehr 
findet, setzt er kurzerhand den Wert »0« dafür an. 

Kontrolle ist besser 


Damit haben wir den überzähligen DATA-Wert im ersten 
Block gefunden. Wir entfernen das Komma in Zeile 310 und 
löschen die Zeile 125 mit dem GOSUB-Befehl sowie die 
Zeile 145 mit dem nun nicht mehr benötigten STOP-Befehl. 

Ein erneuter Probelauf des Programms schreibt die Zei¬ 
chenfolge »COMMOORE« links oben auf den Bildschirm - 
und bringt die Fehlermeldung »OUT OFF DATA ERROR IN 
220«. Nach Auflisten der Zeile 220 sehen wir leider nur: 
220 READ X 

Das bringt uns nicht sehr viel weiter. Die Fehlermeldung 
und das verstümmelte Wort »COMMODORE« am oberen 
Bildschirmrand deuten auf einen fehlenden DATA-Wert in 


Block 2 hin. Untersuchen wir also Block 2 einmal genauer. 
Das Unterprogramm zum Ausdrucken der Werte von »I« 
und »X« auf den Bildschirm befindet sich ab Zeile 1000 
noch im Speicher. Wir brauchen daher nur einen entspre¬ 
chenden GOSUB-Befehl in die zweite Leseschleife einzu¬ 
fügen, am besten gleich nach dem READ-Befehl, also in 
Zeile 225: 

225 G0SUB 1000 

Wir erhalten weder eine leicht zu überprüfende Liste aller 
DATA-Werte, diesmal aus Block 2. Bei I=4 fällt uns sofort et¬ 
was auf. Am Bildschirm erscheint nämlich: 

1 = 4 X = 15,4 

Das ist die einzige Zahl mit Normalkommastelle, was bei 
dieser Art der Bildschirmausgabe sofort ins Auge sticht. 
Wir vergleichen den Wert mit der Eintragung ins Originalli- 
sting und sehen sofort den Fehler: Wir haben beim Abtip¬ 
pen irrtümlich einen Punkt statt eines Kommas eingege¬ 
ben. Die Korrektur ist leicht ausgeführt. 

Natürlich kann man nicht erwarten, daß sich alle Fehler 
so reibungslos lokalisieren lassen wie in unserem kleinen 
Beispiel. Gerade bei Fehlern in DATA-Zeilen kann die Su¬ 
che sich bei längeren DATA-Blöcken um einiges schwieri¬ 
ger gestalten. Aber bei Programmen mit vielen DATA-Zeilen 
sind die hier beschriebenen Methoden zum Auffinden von 
versteckten Fehlern einfach unentbehrlich, wenn man eini¬ 
germaßen schnell und sicher zum Ziel gelangen will. 

(V. Everts/U. Jürgens/kn) 
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REM 

REM 
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DATA-TEST 


S46R C 


B=1024:REM BILDSCHIRM 
REM 

PR I NT ".T: REM CLEAR 
PRINT:PRINT:PRINT:PRINT 
REM 

100 REM DATA-BLOCK 1 LESEN 
105 REM 

TO 17 


110 

120 

130 

140 

150 

160 

170 

190 

195 

200 

205 

210 


FÜR 1=1 
READ X 
S=S+X 
NEXT I 
PRINT"S 


';s 


IF S02B2 THEN PR I NT " PRUEFSUMMENFEHLER " : END 
PRINT"OK" 

REM 
REM 

REM DATA-BLOCK 2 LESEN 
REM 

FOR 1=0 TO B 
220 READ X 
230 POKE B+I,X 
240 NEXT I 
250 END 
290 REM 
295 REM 

300 REM DATA-BLOCK 1 
305 REM 

310 DATA 12,33,11,4,17,38,22,19,7,18, 

320 DATA 11,41,15,19,3,12,0 
345 REM 

350 REM DATA-BLOCK 2 
355 REM 

360 DATA 3,1513,13,15.4,15,18,5 
READY. 


Listing 1. Achtung - fehlerhaftes Listing. 

In diesem Testprogramm sind in den DATA-Zeilen 
einige Fehler enthalten 


290 REM 
ft I 2? c - REM 

300 REM DATA-BLOCK 1 
305 REM 

310 DATA 12,33,11,4,17,38,22,19,7,18 
320 DATA 11,41,15,19,3,12,0 
345 REM 

350 REM DATA-BLOCK 2 
355 REM 

360 DATA 3,15,13,13,15,4,15,18,5 
READY. 


Listing 2. Hier nochmals der DATA-Block aus Listing 1, 
aber diesmal das fehlerfreie »Original« 


100 DATA 12,13,14,15,16,17,0 
200 DATA 13,12,14,15,16,17,0 
300 DATA 13,12,14,15,16,17,0,0,0 
400 DATA 23,2,14,15,16,17,0 
500 DATA 23,2,14,15,16,,17 

READY. 


Listing 3. Die Bildung einer Prüfsumme ist kein 
zuverlässiges Mittel, um Fehler in DATA-Zeilen zu 
entdecken. Wie man leicht nachrechnen kann, ergibt 
jede der fünf DATA-Zeilen die gleiche Prüfsumme. 
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V iele Wege führen nach Rom - dieser Spruch könnte 
das Motto sowohl unseres Wettbewerbs als auch un¬ 
serer Aufgabenstellung sein. Diese ergibt sich aus ei¬ 
ner kleinen Geschichte, die in Italien spielt. Für die Lösung 
sollten Sie ein Basic-Programm schreiben. Wenn dieses 
Programm nicht nur die richtige Lösung bringt, sondern 
auch besonders schnell ist, haben Sie alle Chancen, zu 
den Gewinnern zu zählen. 

Für das schnellste Programm mit der richtigen Lösung er¬ 
halten Sie drei Bücher, die zur Grundausstattung eines je¬ 
den C64-Besitzers gehören sollten (Bild 1): 

F.Riemenschneider: C64/C128 - Alles über Maschinen¬ 
sprache 

Commodore Sachbuchreihe: Alles über den C64 
F.Müller: C64 für Insider 

Der Gewinner des zweiten Preises erhält zwei dieser Bü¬ 
cher nach seiner Auswahl, für den dritten Preis können Sie 
sich eines der Bücher auswählen. Die Sieger-Listings wer¬ 
den wir allen Lesern vorstellen. Werdiesmal kein Glück hat: 
Die Knobel-Ecke wird fortgesetzt. 

Die Aufgabe 

Die Wettbewerbsbedingungen finden Sie am Ende dieses 
Artikels. Damit aber genug der Vorrede, kommen wir zur 
Aufgabe: 

Die Entdeckung des Alarich-Schatzes 

Im Jahr 1980 fuhren fünf Freunde nach Italien, um am 
Ufer des Busento nach dem verschollenen Schatz des Ala- 
rich zu suchen. 

Sie gruben und suchten und suchten und gruben, bis sie 
endlich im Schweiße ihres Angesichts erfolgreich waren: 
Nachdem sie viel Geröll beiseite geräumt hatten, entdeck¬ 
ten sie eine verfallene Truhe, bis zum Rand mit Münzen ge¬ 
füllt. Die Mühe hatte sich gelohnt. 

Es war zwar erst früher Abend - der Stundenzeiger der 
Uhr zeigte auf die 7; von der Wühlarbeit des Tages waren 
sie jedoch so erschöpft, daß sie beschlossen, sich zu¬ 
nächst schlafen zu legen, um die gerechte Aufteilung des 
Fundes am nächsten Morgen vorzunehmen. 

Sie fielen sofort in einen tiefen Schlaf, aber schon nach 
einer Stunde erwachte der erste, von Mißtrauen gepeinigt. 
Er beschloß, »aus Sicherheitsgründen« sich seinen fünften 
Teil zu nehmen. Um den Geist des Alarich zu beruhigen, 
warf er zunächst-entsprechend der Uhrzeit -acht Münzen 
in den Busento, teilte dann die Münzen in fünf 
gleiche Teile (was genau »aufging«), 
versteckte seinen Anteil in seinem 
Gepäck und legte sich wieder schlafen. 

Eine Stunde später erwachte der zwei¬ 
te. »Ich bin zwar ein guter Mensch, aber 
die anderen dort - naja - ich nehme mir 
lieber meinen gerechten Teil«, sagte er zu 
sich und schritt zur Tat. Entsprechend zur 
Uhrzeit warf er zunächst neun Münzen in 
den Busento, teilte dann die Goldstücke 
in fünf gleiche Teile (was genau »aufging«), 
versteckte seinen vermeintlichen Anteil in 
seinem Gepäck und legte sich schlafen. 

Wieder eine Stunde später erwachte der 
dritte. Er verfuhr ähnlich wie seine Vorgän¬ 
ger: In Anlehnung an die Uhrzeit warf er 
zehn Münzen in den Busento, teilte die Mün¬ 
zen in fünf gleiche Teile (was genau »auf¬ 
ging«), versteckte seinen Anteil und begab sich 
wieder zu Bett. 

Nach abermals einer Stunde erwachte der 
vierte - auch er warf entsprechend der phrzeit elf 
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Münzen in den Fluß, teilte dann die Goldmünzen in fünf 
Teile (was genau »aufging«), versteckte seinen Anteil 
im Gepäck, um sich dann beruhigt wieder schlafen zu 
legen. 

Um Mitternacht erwachte der fünfte, der wie seine 
»Freunde« gemäß der Uhrzeit zwölf Münzen zur Beruhi¬ 
gung des Alarich-Geistes in den Busento warf. Erteilte die 
Münzen in fünf gleiche Teile (was, wie üblich, genau »auf¬ 
ging«), versteckte sein Fünftel und legte sich schlafen. 
Nach Sonnenaufgang erwachten die Schatzgräber, 
machten alle ein ehrliches Gesicht und began¬ 
nen mit der Aufteilung der restlichen Münzen, 

was wiederum ge¬ 
nau »aufging«. 
Wieder in der Hei¬ 
mat angekommen, 
erfuhr die 
Polizei 





140 


SONDERHEFT 40 












ternacht verteilte. Zwei Punkte müssen bei jeder 
neuen Verteilung berücksichtigt werden: 

a) Jeder der Freunde wirft je nach Uhrzeit eine 
bestimmte Zahl Münzen in den Fluß. 

b) Jede Verteilung erfolgt so, daß kein Rest 
übrigbleibt. Die Anzahl der Münzen ist immer 
ganzzahlig. 

Mit einer Beispielrechnung möchten wir Ihnen 
einen möglichen Lösungsweg zeigen. Es bleibt 
Ihnen überlassen, ob Sie ähnlich Vorgehen oder 
einen ganz anderen Weg finden, effektiver ist. 

Angenommen, die Zahl der Münzen am Mor¬ 
gen ist genau 20. Diese Zahl läßt sich zumin¬ 
dest ohne Rest durch fünf teilen. 

Diese Anzahl der Münzen ist übriggeblieben, 
nachdem der letzte um Mitternacht seine Ver¬ 
teilung erledigt hat. Nennen wir nun die Zahl 
der Münzen, die er vor der Verteilung vorfand, 
beispielsweise mit X. Von dieser Zahl wirft er 
zwölf Münzen in den Fluß. Anschließend 
nimmt er sich von diesem Rest genau ein 
Fünftel fort. Der Rest beträgt dann, wie oben 
angenommen, 20. Versuchen wir das einmal 
in eine Formel zu fassen: 


20= x-12- 


x-12 


Knobel 


Ecke 


1 


A 




durch Indiskretionen von der Schatzräuberei, und wegen 
der Geschwätzigkeit der Ehefrauen der fünf Freunde konn¬ 
te die »Verteilungsprozedur« exakt ermittelt werden. 

Nur die Anzahl der gefundenen Goldmünzen blieb unbe¬ 
kannt, und keiner der Beteiligten wollte sich diesbezüglich 
äußern. Die Behörden suchen bis heute nach einem Fach¬ 
mann, der mit Hilfe seines Computers berechnen kann, wie 
viele Goldstücke die fünf Freunde mindestens gefunden 
haben müssen. 

An dieser Stelle sind Sie gefragt. Sind Sie der Fachmann 
(die Fachfrau), um mit dem C64 diese Aufgabe zu lösen? 

Da bei unserem Wettbewerb eine optimale Programmie¬ 
rung, das heißt eine hohe Geschwindigkeit im Vordergrund 
steht, geben wir Ihnen Hinweise zur Lösung der Aufgabe. 

Beginnen Sie bei Ihren Überlegungen mit dem Ende der 
Verteilungsprozedur. Die Zahl der Münzen, die am Morgen 
noch vorhanden war, ließ sich genau durch fünf teilen. Die 
kleinste ganzzahlige Anzahl (jede Verteilung ließ sich 
durchführen, ohne daß ein Rest übrigblieb) ist 5. Rechnen 
Sie hoch auf die Anzahl der Münzen, die der fünfte um Mit- 


Q3ta? 


Als Ergebnis für den Wert X erhalten 
wir, wenn die Formel nach X aufgelöst wird, genau 
37. Prüfen wir: Zwölf Münzen in den Fluß, bleiben 25, ein 
Fünftel abgezogen, bleiben 20, wie im Beispiel angenom¬ 
men. Ganzzahlig ist der Wert auch. 

Welfer hochrechnen wollen wir nicht, die Lösung sollen 
Sie finden. Mit unserem »Arbeitslisting«, das wir für die Auf¬ 
gabe programmiert haben, erhalten wir nach 13 Sekunden 
die Lösung auf dem Bildschirm. Übrigens - diese Zeit, die 
Sie mit Sicherheit unterbieten werden, beweist die hohe 
Leistungsfähigkeit des C 64 mit seinem eingebauten Basic. 
Auf einem Personal Computer dauerte ein vergleichbares 
Cobol-Programm mehrere Minuten. 

Um gleiche Voraussetzungen für alle Teilnehmer zu ge¬ 
währleisten, verwenden Sie für Ihr Basic-Programm nur 
das Basic 2.0 des C 64. Routinen in Maschinensprache, die 
Sie zur Beschleunigung einsetzen könnten, sind nicht er¬ 
laubt, geschickte Programmierung ist gefragt. 

Die erste Zeile in Ihrem Programm muß lauten: 

10 TI$="000000" 

Damit wird - für alle Teilnehmer gleich - die Zeit auf Null 
gesetzt. Welche Zeilennummer Sie verwenden, ist Ihnen 
überlassen. 

Die letzte Zeile Ihres Programms sollte lauten: 

500 PRINT TI$ 

Das Programm muß vor der Ausgabe der abgelaufenen 
Zeit folgende Informationen auf dem Bildschirm anzeigen: 

a) Aus welcher Mindestanzahl von Münzen bestand der 
Schatz ursprünglich? 

b) Wie viele Münzen waren morgens bei der Verteilung 
noch vorhanden? 

Schicken Sie Ihr Programm (Diskette und/oder Listing¬ 
ausdruck) bis zum 30. April 1989 an folgende Adresse: 

Markt & Technik Verlag AG 
Redaktion Sonderhefte 
Stichwort: Knobel-Ecke (1) 
Hans-Pinsel-Str. 2 
8013 Haar bei München 

Viel Erfolg beim Knobeln und Programmieren! (ef) 
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Ordnen Sie das Chaos 

Kein »Virus«, sondern ein Programm hat einige 
unserer Basic-Listings völlig durcheinandergebracht. Die Zeilennummern stimmen 
nicht, die Programme laufen nicht mehr: Nutzen Sie Ihre 
Basic-Kenntnisse, erstellen Sie aus dem Chaos ein lauffähiges Programm. 


E s gibt viele Möglichkeiten, die logischen Abläufe eines 
Basic-Programms nachzuvollziehen. Wir stellen Ihnen 
hier eine davon vor, die den Freunden logischer Denk¬ 
spiele gefallen wird. 

Wenn Sie sich unsere drei Beispiele (Listing 1 bis 3) ge¬ 
nauer anschauen, werden Sie schnell feststellen, daß kei¬ 
nes dieser Listings in der abgedruckten Form einen Sinn 
ergibt. Die Zeilennummern der Programme beginnen je¬ 
weils bei 1080 (die REM-Zeilen vorher sind nur Vorspann), 
die Zeilen selbst sind kunterbunt durcheinander. Daher fin¬ 
den Sie in den Listings beispielsweise Sprünge auf nicht 
vorhandene Zeilen. 

Dennoch verbergen sich hinter den drei Listings kleine 
Programme, die - richtig geordnet und mit neuer Zeilen¬ 
nummer versehen - kurze Anwendungen darstellen. 

Um die richtige Reihenfolge der Zeilennummern wieder¬ 
herzustellen, sollten Sie bei jedem Listing einige Punkte 
beachten: 

Die Zeilen 1000 bis 1070 haben für die eigentlichen Pro¬ 
gramme keine Bedeutung, sie bleiben unberücksichtigt. 
Jedes (korrekte) Programm beginnt mit der Zeilennummer 
100, der Zeilenabstand beträgt 10. 

Die Sprünge auf andere Zeilen in unseren Beispielli- 
stings beziehen sich immer auf die korrekte Programmver¬ 
sion. Der Basic-Inhalt der einzelnen Zeilen darf also nicht 
verändert werden, nur die Reihenfolge und die Zeilennum¬ 
mern. 

Dies ist eine kleine Hilfe, um bei Verwendung der korrek¬ 
ten Zeilennummern das Programm in seine ursprüngliche 
Form zu bringen. 

Einige Hinweise über die Funktion der Beispiele wollen 
wir Ihnen noch geben: 

Listing 1: 

Das Programm ist eine Eingaberoutine für Zahlen, die 
auch Zehner-Potenzen akzeptiert. Andere Eingaben als 
Zahlen werden nicht akzeptiert. 


1000 REM < >< X >< X >< X >< >< >< >< >< >< >< >< > 


1010 REM <> <> 
1020 REM <> KNOBELN MIT BASIC <> 
1030 REM <> <> 
1040 REM <> (C) BY DIRK NEUMEISTER <> 
1050 REM <> <> 


1060 REM < X X X X X X X X X X X X X X > 

1070 END : 

1080 IF EI*=CHR*(20)THEN LY=LEN(INS):IF LY 
>0 THEN IN*=LEFT*(IN*,LY-1):PRINT"CSP 


<0B4> 

<016> 

<249> 

<038> 

< 212 > 

<058> 

<146> 

<009> 


ACE,2LEFT,SPACE,LEFT3"; <095> 

1090 IF ASC (EI*) >57 OR ASC(EI*X4B THEN 11 

0 <018> 

1100 GET EI*: IF EI*=""THEN 110 <227> 

1110 IF EI*="E"THEN 190 <212> 

1120 IN*=INS+EI*:PRINT EI*;:GOTO 110 <233> 

1130 POKE 204,0:IN*="":PRINT"I"; <093> 

1140 IF EI*=CHR*(13)AND IN*<>"“THEN POKE 2 
04,1:PRINT"{SPACE,LEFT,SPACE >":IN=VAL 
(IN*):RETURN <093> 

1150 IF EI*="—"THEN 190 <228> 

1160 IF LEN(IN*)=>15 THEN 110 <100> 

1170 IF EI*="."THEN 190 <249> 


Listing 1. Die Routine zur Zahleneingabe (ab Zeile 1080) 
ist völlig durcheinandergeraten 


1000 REM < X X X X X X X X X XXX X X > <0B4> 

1010 REM <> <> < 01 &> 

1020 REM <> KNOBELN MIT BASIC <> <249> 

1030 REM <> <> <038> 

1040 REM <> (C) BY DIRK NEUMEISTER <> <212> 

1050 REM <> <> < 05a> 

1060 REM < X X X X X X X XX XX X X X > <146> 

1070 END : < 009> 

1080 NEXT <074> 

1090 FÜR A=1 TO 49: IF ZAHL7.(A)=1 THEN PRIN 

T A ; <i36> 

1100 FOR A=1 TO 6:REM TIPPVORSCHLAEGE EING 

EBEN <097> 

1110 FOR A=1 TO 6: IF ZAHL'/. (EIN (A) ) =1 THEN 

ZAELER=ZAELER+1 <195> 

1120 ZAHL7.(ZUFALL) =1: NEXT <011> 

1130 FOR A=1 TO 6:REM LOTTOZAHLEN ERMITTEL 

N < 213 > 

1140 REM LOTTOSIMULATION <170> 

1150 NEXT:PRINT:PRINT:PRINT"SIE HATTEN";ZA 

ELER;"ZAHL(EN) RICHTIG" <099> 

1160 PRINT:PRINT"DIE AKTUELLEN LOTTOZAHLEN 

SIND" <251> 

1170 INPUT"{2SPACE>3<2LEFT>";EIN(A):IF EIN 
(A)<1 OR EIN(A)>49 THEN PRINT"UNGUELT 
IG":GOTO 170 <125> 

1180 PRINT"fCLRJBITTE GEBEN SIE IHRE ZAHLE 

N EIN" <010> 

q unnwwxT < 1B4 > 

1200 ZUFALL=INT(RND(1)*49)+1:IF ZAHL7.(ZUFA 

LL)=1 THEN 130 <162> 

1210 DIM ZAHLX(49) <045> 

Listing 2. Nur mit der richtigen Reihenfolge der 
Programmzeilen können Sie Lotto spielen 


1000 REM < X X X X X X X X X X X X >< >< > 


1010 REM <> <> 
1020 REM <> KNOBELN MIT BASIC <> 
1030 REM <> <> 
1040 REM <> (C) BY DIRK NEUMEISTER <> 
1050 REM <> <> 


1060 REM < X X X X X X X X X X X X X X > 

1070 END : 

1080 IF F<2 THEN PRINT"CDOWNJSIE KOENNEN R 
ICHTIG RECHNEN" 

1090 IF A*<>"N"THEN RUN 

1100 PRINT"SIE HABEN";R;"AUFGABE(N) GELOES 
T“ 

1110 INPUT“ ANTWORT “; A7.: L7.=A*B+C 
1120 PRINT“CUP,13RIGHT>FALSCH{2SPACE>LOESU 
NB: ";L7.:F=F+1 

1130 IF A*B+C>100 THEN 120 
1140 TI*="000000" 

1150 PRINT"{2D0WN>N0CH EINMAL CJ/N 3" 

1160 IF R<10 THEN PRINT"CDDWNJSIE MUESSEN 
SCHNELLER WERDEN!i" 

1170 IF A7.=L7.THEN PRINT" CUP, 13RIGHT>RICHTI 
G":R=R+1:GOTO 190 

1180 IF F>1 THEN PRINT"CDOWN>SIE MACHEN ZU 
VIELE FEHLER!" 

1190 PRINT A"*"B"+“C"= ? 

1200 IF TI<3600 THEN 120:REM EINE MINUTE 
1210 GET A*:IF A*=""THEN 260 
1220 A=INT(RND(1> *10)+2:B=INT(RND(1)*10)+2 
:C=INT(RND(1)*10)+20 
1230 REM RECHENUEBUNGEN 

1240 IF R>9 THEN PRINT"CDOWNJSIE KOENNEN S 
CHNELL RECHNEN" 


<0B4> 

<016> 

<249> 

<038> 

< 212 > 

<058> 

< 146> 
<009> 

< 137> 
<059> 

< 020 > 

< 127> 

<229> 

< 159> 

< 103> 
<213> 

< 199> 

<252> 

<184> 

<224> 

< 000 > 

<228> 

< 010 > 

< 020 > 

<233> 


Listing 3. Beweisen Sie, wie gut Sie Kopfrechnen 
können - vorher müssen Sie allerdings die Zeilen ordnen 
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Haben Sie die ursprüngliche Reihenfolge herausgefun¬ 
den, sollten Sie anschließend eine Zeile ergänzen, bevor 
Sie das Programm starten: 

10 GOSUB 100:END 

Die Routine läßt sich sehr einfach in eigene Programme 
einbinden. 

Listing 2: 

Das korrigierte Programm ist eine Lottosimulation: Zu¬ 
nächst geben Sie sechs Zahlen ein, die Ihre Lottozahlen 
darstellen. Diese werden mit sechs Zufallszahlen vergli¬ 


chen. Nach der Auswertung erfahren Sie, wie viele Richtige 
Sie erzielt haben. 

Listing 3: 

Kopfrechnen ist angesagt mit dem dritten Programm. Ei¬ 
ne Minute lang werden Ihnen über Zufallszahlen Rechen¬ 
aufgaben gestellt. Das Programm läßt sich gut auf ver¬ 
schiedene Rechenarten ändern. 

Wenn Ihnen diese Art zu knobeln gefällt und Sie Ideen für 
weitere Beispielprogramme haben, schreiben Sie uns. 

(D. Neumeister/ef) 


Der C64 als Psychiater 


Möchten Sie sich einmal mit Ihrem C64 unterhal¬ 
ten, ihm Fragen stellen oder auf dessen Äußerun¬ 
gen antworten? Alles kein Problem mit »Eliza«: 
Dieses Programm macht aus Ihrem Computer ei¬ 
nen »intelligenten« Gesprächspartner. 

n den Anfangszeiten der Forschung über Künstliche In¬ 
telligenz (Kl) stellte »Eliza« (Listing 1) einen revolutionä¬ 
ren Fortschritt dar. Obwohl das Programm bereits über 
25 Jahre alt ist, stellt es ein vorzügliches Beispiel für Kl dar. 
Entwickelt wurde es in den sechziger Jahren von dem Com¬ 
puterwissenschaftler Josef Weizenbaum. Ziel war es, ei¬ 
nen Psychiater zu simulieren. 

Die Simulation war so erfolgreich, daß in der Tat viele Ge¬ 
sprächspartner damals dachten, hinter dem Computer ver¬ 
berge sich ein Mensch. Verblüffend war auch der geringe 
Speicherplatzbedarf: »Eliza« benötigte nur 8 KByte RAM. 
Dennoch lief das Programm früher nur auf einem Groß¬ 
rechner. Kein Wunder, denn niemand dachte daran, daß es 
bereits 1983 Heimcomputer mit 64 KByte RAM geben 
würde. 

Ende der siebziger Jahre verbreitete sich »Eliza« auch in 
Deutschland. Bis heute hat das Programm nichts an Aktua¬ 
lität und Wirkung eingebüßt. Wer sich heute mit Künstlicher 
Intelligenz oder mit der Programmierung intelligenter Ad- 
ventures beschäftigt, kommt an »Eliza« nicht vorbei. 

Wenn Sie Ihre »Probleme« von »Eliza« analysieren las¬ 
sen wollen, benötigen Sie Englischkenntnisse oder zumin¬ 
dest ein Wörterbuch. 

Um Ihnen einen ersten Eindruck darüber zu vermitteln, 
wie das Programm arbeitet, wollen wir Ihnen zunächst ei¬ 
nen Ausschnitt aus einem Dialog vorstellen, wie er sich 
jederzeit mit »Eliza« entwickeln kann: 

HI, I AM ELIZA TELL ME YOUR PROBLEM 
) I HATE SCHOOL 

SAY, DO YOU HAVE ANY PSYCH0L0GICAL PROBLEMS? 

)I CAN'T GET NO SATISFACTION 

HOW DO YOU KNOW YOU CAN'T GET NO SATISFACTION 

)I JUST DON'T HAVE ANY 

WHAT DOES THAT SUGGEST TO YOU? 

)I NEED GIRLS AND DRUGS AND ROCKN ROLL 
I SEE 

) CAN YOU GIVE ME DRUGS? 

DON'T YOU BELIEVE THAT I CAN GIVE DRUGS! 

) I LIKE YOU ELIZA 
WE WERE DISCUSSING YOU — NOT ME 
)BY THE WAY - MY NAME IS MIKE 
NAMES DON'T INTEREST ME 

Wenn Sie sich eine Weile mit dem Eliza-Programm »un¬ 
terhalten« haben, haben Sie sicherlich festgestellt, daß 


nicht selten relativ unsinnige Antworten Zustandekommen. 
Daß im Programm nicht viel Intelligenz stecken kann, sieht 
man schon am Listing: Das Hauptprogramm besteht aus 
nur zirka 50 Zeilen, der restliche Teil aus DATA-Zeilen. In der 
Tat, Eliza hat keine Ahnung von dem Gesprächsinhalt der 
Dialoge, die sie führt. Der Eliza-Effekt, wie wir es einmal 
nennen wollen, besteht also darin, aus eingegebenen Sät¬ 
zen und Antworten neue Fragen zu formulieren. Daß Eliza 
Antwort gibt, ohne nachzudenken und darauf verzichtet, 
die Antwort auf Sinngehalt zu untersuchen, zeigt sich 
dann, wenn man anstelle von einfachen Sätzen wirre Zei¬ 
chenfolgen eingibt. 


Wir müssen an dieser Stelle zugeben, daß der Beispiel¬ 
dialog, den wir Ihnen vorhin gezeigt haben, nur deshalb re¬ 
lativ intelligent erscheint, weil wir durch gewählte Antwor¬ 
ten (unter Kenntnis, wie Eliza arbeitet,) vermeiden konnten, 
daß Eliza unsinnige Antworten gibt. 

Geben Sie nach Programmstart doch bitte einmal den 
folgenden Satz ein: 

»CAN YOU X« 

Eliza antwortet mit »DON’T YOU BELIEVE I CAN DO X«. 

Nach dem Schlüsselbegriff CAN YOU hat Eliza also ein¬ 
fach den Satzrest X abgeschnitten und an einen ihrer Stan¬ 
dardsätze angehängt. Hätte man als ersten Satz 

»CAN YOU DANCE« eingegeben, so hätte Eliza mit 
»DON’T YOU BELIEVE THAT I CAN DANCE« geantwortet. 
Geben wir jetzt nochmals »CAN YOU X« ein. Eliza antwortet 
jetzt mit: 

»PERHAPS YOU WOULD LIKE TO BE ABLE TO X«. 
Beim dritten gleichen Versuch antwortet Eliza schließlich 
mit »YOU WANT ME TO BE ABLE TO X«. Gibt man zum vier- 
tenmal »CAN YOU X« ein, so erhält man wieder die erste 
Antwort. Eliza hat also nur eine begrenzte Anzahl von Ant¬ 
worten und Fragen zu bestimmten Schlüsselwörtern parat. 

Eliza ist also eigentlich gar kein Kl-Programm, sondern 
lediglich eine einfache Gesprächssimulation. Trotzdem 
wollen wir das Programm ausführlich besprechen, denn es 
läßt sich vieles aus ihm herausholen. Es bietet sich zum 
Beispiel sehr an, eine eliza-artige Routine in ein Text- 
Adventure einzubauen. Man könnte die Schlüsselwörter 
von Eliza speziell auf das Adventure abrechnen. Der Spie- 


Kurzinfo: Eliza 


Programmart: Beispiel für »Künstliche Intelligenz« 

Laden: LOAD "ELIZA",8 

Starten: Nach dem Laden RUN eingeben 

Besonderheiten: Umsetzung für den C64 nach einem Programm 

von Josef Weizenbaum. Die Sprache ist Englisch. 
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ler könnte dann einen richtigen Dialog mit dem Computer 
führen, der in etwa so aussehen könnte: 

Spieler: Ich weiß hier nicht mehr weiter. 

ADV: Denken Sie halt mal scharf nach! 

Spieler: Ich krieg die verdammte Tür nicht auf! 

ADV: Sie brauchen ein Hilfsmittel, wenn Sie die Tür 

öffnen wollen. 

Spieler: Womit läßt sich die Tür öffnen? 

ADV: Stellen Sie sich nicht so dumm an. 

Spieler: Womit läßt sich die Tür öffnen? 

ADV: Sie kommen bestimmt nicht weiter, wenn Sie 

immer wieder auf der gleichen' Frage herum¬ 
hacken: 

Und so kann es noch lange weitergehen. 

Dies sieht momentan natürlich wieder viel intelligenter 
aus, als es in Wirklichkeit ist. Auf jeden Fall bietet es sich 
an, das Eliza-Programm einmal genau unter die Lupe zu 
nehmen, um das Prinzip zu verstehen, das hinter dem Bil¬ 
den der Antworten steht: Die wichtigsten Informationen 
werden der vorausgegangenen Frage entnommen. Alle 
Gesprächspartner-Simulationsprogramme bauen irgend¬ 
wie auf dem Eliza-Prinzip auf. Es ist also unbedingt erfor¬ 
derlich, die Programmierung der Eliza zu verstehen, wenn 
man eigene Simulationsprogramme dieser Art schreiben 
will. Wie gesagt, das Eliza-Programm benötigt lediglich 8 
KByte RAM. Das heißt, uns stehen noch 30 KByte Basic- 
RAM zur Verfügung. Nehmen wir alle 64 KByte RAM und 
bedienen uns auch noch einer relativen Datei auf Disk, so 
können wir Programme entwickeln, die den »IQ« der Eliza 
uni ein Hundertfaches übersteigen. 

Eliza unter der Lupe 


Das Eliza-Listing läßt sich in zwei große Hauptabschnitte 
unterteilen: 

dem Steuerprogramm (Zeile 5 bis 620) und den DATA-Zei- 
len (Zeile 1050 bis 2250). 

Programmieranfängersehen im Steuerprogramm ledig¬ 
lich ein Wirrwarr von Stringoperationen. Man muß schon 
ziemlich genau hinschauen, um zu erkennen, was sich in 
den einzelnen Zeilen des Steuerprogramms abspielt. Las¬ 
sen Sie uns dies jetzt einmal gemeinsam tun: 

Eliza: Dokumentation zum Listing 
10 bis 30 Unterprogramm zum Positionieren des Zeigers 
auf die DATA-Zeilen. Um das Programm möglichst 
klein zu halten (es stammt schließlich von einem PET 
2001 mit nur 8 KByte), war es nicht möglich, die ge¬ 
samten DATAs in ein Stringfeld einzulesen. Deshalb 
wird dieses Unterprogramm benutzt, um auf einen 
bestimmten Satz N zu positionieren. Der DATA-Zeiger 
wird einfach auf das erste DATA gesetzt (mittels RE- 
STORE), dann werden N-Elemente mittels READ 
überlesen. Es hat auch seinen guten Grund, daß die¬ 
ses Unterprogramm am Kopf des Listings steht: Je 
niedriger die Zeile ist, in der ein Unterprogramm be¬ 
ginnt, um so schneller wird es mit GOSUB aktiviert. 
Da bei Eliza ständig positioniert werden muß, lohnt es 
sich aus Geschwindigkeitsgründen, das Unterpro¬ 
gramm voranzustellen. 

100 bis 140 Hier wird eine Schlüsselbegriff-Tabelle er¬ 
zeugt. In die Variablen S%, R%, N% (DIM-Felder) 
werden die Zahlendatas ab Zeile 2530 eingelesen - 
also alle Zahlendatas, die es überhaupt gibt. Diese 
Tabelle ist die wichtigste Tabelle im ganzen Pro¬ 
gramm (und auch die einzige). 

Die gesamte Datei läßt sich in drei Bereiche gliedern: 
Bereich 1 mit Nl-Sätzen: enthält alle Schlüsselwörter, 

die Eiiza kennt. 


Bereich 2 mit N2-Sätzen: Hilfsverben 

Bereich 3 mit N3-Sätzen: Kommentare 

160 Beginn des Dialogs 
170 »Befehlseingabe« in den String 1$ 

200 bis 220 Alle ’ werden aus 1$ herausgekürzt. 

Beispiel: Aus »l’M HUNGRY« wird »IM HUNGRY«. Dies 
ist notwendig, um später I AM und IM gleichsetzen zu kön¬ 
nen. Im Prinzip ist dieses Kürzen nicht unbedingt notwen¬ 
dig, da in der Schlüsselwort-Tabelle I AM und l’M aufgeführt 
werden. 

230 In P$ ist jeweils die letzte Befehlseingabe gespei¬ 
chert. Es wird hier dafür gesorgt, daß der Anwender 
nicht zu schnell das Eliza-Schema begreift, indem er 
mehrmals hintereinander die gleiche Antwort erhält. 
Dies gilt allerdings nur bei Verlegenheitsfällen (Erklä¬ 
rung folgt). 

280 Der DATA-Zeiger wird auf den ersten Satz des ersten 
Dateibereiches positioniert. 

300 bis 340 Der Befehlsstring 1$ wird auf Schlüsselwörter 
hin durchsucht. Es wird zum Beispiel gesucht, ob 
»CAN YOU« im String vorkommt. 

325 Wird ein Schlüsselwort gefunden, so speichert 
S die Nummer des Schlüsselwortes (CAN YOU = 
1, CAN I = 2 etc.), 

T ab welchem Zeichen von 1$ das Schlüsselwort steht. 
F$: das Schlüsselwort selbst 

365 Prüfen, ob ein Schlüsselwort gefunden wurde (S grö¬ 
ßer 0). Wurde eines gefunden, so speichert 
K: die Nummer des Schlüsselwortes (K=S), 

L: wo Schlüsselwort in 1$ steht (L=T). 

Sprung nach 100 

370 Es wurde kein Schlüsselwort gefunden. In diesem 
Fall erhält K den Wert von NI (=38). Man kann aber 
i sagen, daß doch ein Satz gefunden wurde - 
Satz 38, der bei uns NOKEY FOUND heißt. Das heißt, 
immer wenn kein Schlüsselwort gefunden wird, posi¬ 
tioniert Eliza auf Satz 38. 

400 Ein Schlüsselwort wurde gefunden. N=N1 
405 Jetzt wird auf den zweiten Bereich positioniert. 

410 Nehmen wir einmal an, der Befehlssatz lautete »CAN 
YOU X«. In diesem Fall nimmt C$ den Wert »X« an. 
420 bis 540 Änderung der Bezugswörter. Beispiel: Aus 
»YOU APPEAR IN MY DREAMS« als C$ wird nach 
der Umwandlung gemäß Bereich 2 »APPEAR IN 
YOUR DREAMS«. 

560 bis 570 Positionieren auf dritten Datenblock. 

580 Positionieren aus SATZ R%(K) des dritten Bereiches. 
Warum R°/o(K) und nicht einfach K? Ganz einfach - 
Eliza bedient sich eines Tricks, um bei gleichen 
Schlüsselwörtern nicht immer identische Antworten 
geben zu müssen. Betrachten Sie bitte die Dimensio¬ 
nierungsanweisung im Listing. Es gibt drei Feldvaria¬ 
blen: S°/o(X), R°/o(X) und N%(X). Nehmen wir einmal 
an, Eliza erhält viermal hintereinander das gleiche 
Schlüsselwort, 

zum Beispiel »CAN YOU SWIM« 

»CAN YOU DANCE« etc. 

Immer lautet das erste Schlüsselwort »CAN YOU«. 
Das erste Mal antwortet Eliza mit dem Satz R%(1) des 
dritten Bereiches. Wäre das Schlüsselwort zum Bei¬ 
spiel ARE YOU, so würde sie mit R%(9) antworten. 
590 Jetzt wird R%(1) um den Wert 1 erhöht. Überschreitet 
R°/o(1) den Wert N%(1), so wird R%(1) auf den Wert 
S%(1) zurückgesetzt. Das Listing zeigt uns, daß es 
zum Schlüsselwort CAN YOU drei mögliche Antwort¬ 
sätze gibt, die in den Sätzen 1 bis 3 stehen. In S%(X) 
steht immer gespeichert, welcher Satz der erstmögli¬ 
che Antwortsatz zu einem bestimmten Schlüsselwort 
ist. In N°/o(X) ist es der letzte. So wird erreicht, daß 
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nicht allzuschnell auffällt, wie dumm Eliza eigentlich 
ist, solange er keine Auswahl hat. 

Nun haben wir auch schon das komplette Programm Eli¬ 
za dokumentiert. Es kann sein, daß es für einen Anfänger 
schwierig ist, das Programmkonzept der Eliza komplett zu 
verstehen. Unsere Dokumentation kann Ihnen nur helfen; 
verstehen werden Sie das Programm jedoch erst dann, 
wenn Sie es eigenständig Schritt für Schritt durcharbeiten. 

Im folgenden möchten wir das Eliza-Konzept noch ein¬ 
mal mit ganz einfachen Worten zusammenfassen: 

Der Eliza-Effekt besteht darin, aus einer Antwort eine 
neue Frage zu formulieren. 

Eliza untersucht eingegebene Sätze auf Schlüsselwörter 
hin. Nehmen wir einmal an, jemand gibt als Antwortsatz »I 
HATE SCHOOL« ein. Eliza macht sich nun keineswegs die 
Mühe, den ganzen Satz in einzelne Wörter zu zerlegen. 

Eliza beruft sich vielmehr zunächst auf die Tabelle der 
Schlüsselwörter. Zunächst nimmt sie das erste Wort der Ta¬ 
belle (CAN YOU) als Schlüsselwort beziehungsweise Ver¬ 
gleichsstring K$. Nun wird der gesamte Befehlsstring 1$ 
durchsucht. 

F0RI=1 TO LEN(I$) 

: IF MID$(IS,I,LEN(K$))=K$ THEN REM GEFUNDEN 
NEXTI 

Das Suchen erfolgt also einfach mittels Durchlaufen des 
gesamten Befehlsstrings und Vergleichen mit dem Schlüs¬ 
selwort K$. Dieser Suchalgorithmus ist sehr einfach, den¬ 
noch reicht er hier aus. 

Aus dem Listing können wir lesen, daß Eliza bei dem Be¬ 
fehlsstring »I HATE SCHOLL« mit Sicherheit kein Schlüs¬ 
selwort finden wird. Daher wird Eliza zu »I HATE SCHOOL« 
auch keine geistreichen Bemerkungen geben können. Sie 
bringt eine Ausweichfrage - sie weicht also einfach auf ein 
anderes Thema aus (wie wir es auch tun, wenn wir nicht 
mehr weiter wissen). Nach einer erfolglosen Schlüssel¬ 
wortsuche steht der Tabellenzeiger auf Satz 38 (NOKEY- 
FOUND). Der letzte Satz der Schlüsselworttabelle ist somit 
immer der Hinweise auf die Ausweichfragen (z.B. SAY DO 
YOU HAVE ANY PSYCHOLOGICAL PROBLEMS) oder 
Verlegenheitsantworten (I SEE). 

Aus dem Listing können wir erkennen, wo die Ausweich¬ 
sätze stehen: S%(38) zeigt auf den Beginn und N%(38) auf 
das Ende beziehungsweise den letzten der Verlegenheits¬ 
sätze. R°/o(38) ist, wie bereits dokumentiert, der Zeiger auf 
den Ausweichbereich. Er wird immer dann um 1 erhöht 
(auch zurückgestellt wenn größer als N°/o), wenn Eliza auf 
den Ausweichbereich zugegriffen hat. Eliza kennt genau 
sieben Ausweichsätze. Das heißt, Eliza wiederholt sich bei 
jeder siebten Ausweichantwort. Von der Größe der einzel¬ 
nen Bereiche, also dem Antwortenreichtum eines Eliza- 
Programms, hängt es ab, wie schnell die eigentliche 
»Dummheit des Programms« vom Spieler erkannt wird. 

Der Eliza-Effekt 


Hat Eliza beim ersten Durchlauf also kein Schlüsselwort ge¬ 
funden, so bricht sie alle weiteren »Berechnungen« ab und 
antwortet sofort mit einer Verlegenheitsantwort oder stellt 
eine Ausweichfrage. Dies kann man mit einem Adventure- 
Parser vergleichen, der abbricht, wenn er ein Wort nicht 
kennt - ICH KENNE DAS WORT X NICHT. 

Lassen Sie uns jetzt jedoch einmal von einem interes¬ 
santen Befehlssatz ausgehen. Unter Befehlssatz verste¬ 
hen wir alle Arten von Sätzen, die ein Spieler beziehungs¬ 
weise Anwender auf einen INPUT-Befehl hin eingibt. So 
zum Beispiel »YOU APPEAR IN M Y DREAMS«. Eliza findet 
nun das Schlüsselwort »YOU« - Satz 13 in Bereich 2. An¬ 
hand des Listings können wir herausfinden, daß Eliza mit 


»We were discussing you - not me« antworten muß. Sicher 
haben Sie bereits bemerkt, daß im Listing manche Sätze 
mit einem Sternchen enden und andere wiederum nicht. 
Sätze, die nicht mit einem Sternchen enden, werden direkt 
ausgegeben, also so wie sie im Listing stehen. Der Antwort¬ 
satz »WE WERE DISCUSSING YOU - NOT ME« steht dort 
an Stelle 32 und hat am Ende kein Sternchen. Wie wir be¬ 
reits wissen, steht der YOU-Zeiger jetzt auf Satz 33. Bei der 
nächsten Satzeingabe muß also als Antwort Satz 33 kom¬ 
men - wenn im Befehlssatz wieder das Schlüsselwort YOU 
gefunden wird. Probieren wir dies doch einfach einmal aus. 
Nach Eingabe von »YOU APPEAR IN MY NIGHTMARES« 
folgt in der Tat die Antwort »OH, I APPEAR IN YOUR 
NIGHTMARES«. Der Satz lautet jedoch nur »OH, I« und ist 
mit einem Sternchen versehen. Bei der Antwort wurde zu 
Satz 33 also »APPEAR IN YOUR NIGHTMARES« zugefügt. 
Vergleichen wir nun einmal Eingabe und Ausgabe: 

Eingabe: YOU APPEAR IN MY NIGHTMARES 

Ausgabe: OH, I APPEAR IN YOUR NIGHTMARES 

Hier sieht man ganz deutlich, was passiert ist. Eliza hat 
vom Eingabesatz den Satzbereich nach dem Schlüssel¬ 
wort YOU abgetrennt und anschließend an den Ausgabe¬ 
satz 33 OH, I angefügt. Dieser abgetrennte Bereich taucht 
im Programm als C$ auf. Bevor C$ jedoch an Satz 33 ange¬ 
fügt wurde, veränderte sich noch etwas: Gemäß Bereich 2 
wurde das Wort MY durch YOUR ersetzt. 

Damit ist der Eliza-Effekt auch schon beschrieben. 

Mit dem jetzt erworbenen Wissen sollte es Ihnen nicht 
mehr allzu schwer fallen, das Eliza-Programm selbst unter 
die Lupe zu nehmen. 

Die Eliza-Methoden sind zwar sehr simpel, zeigen bei ei¬ 
ner Analyse des Programms jedoch ganz einleuchtend, 
wie man Probleme der Sprachverarbeitung, zum Beispiel 
Grt-' 1 lagen der Stringprogrammierung oder der Zerle¬ 
gungsverfahren für Zeichenketten, angehen kann. 

Vielleicht versuchen Sie selbst einmal, ein deutsches Kl- 
Programm ähnlich Eliza zu entwickeln. Schicken Sie es 


doch ein. (M. Nickles/ef) 


5 GOTO 100 <189> 
10 RESTORE <060> 
20 FOR 1=1 TO N:READ SSrNEXT <175> 
30 RETURN <0BB> 
100 DIM SXC38) ,R7.(3B) ,NX<38> <245> 
110 N1=3B:N2=12:N3=118 <032> 
120 N=N1+N2+N3:GDSUB 10 <050> 
130 FOR X=1 TO NI <028> 
140 READ SXCX) ,L:RX<X>=SX<X>:NX<X)=SX<X>+L 

—1:NEXT <134> 
160 PRINT"HI, I AM ELIZA TELL ME YOUR PROB 

LEM <235> 
170 INPUT I*:I*=" ,, +I*+” « < 191 > 
200 FOR L=1 TO LEN<I*> <030> 

210 IF MID*(I*,L,1)=.THEN I*=LEFT*<I*,L- 

1> +RIGHT* < I *,LEN <IS)—L):GOTO 210 <118> 
220 NEXT <230> 
230 IF I*=P*THEN PRINT”PLEASE DON’T REPEAT 

YOURSELF M :GOTO 170 <202> 
280 RESTORE:S=0 <180> 
300 FOR K=1 TO NI <096> 
305 IF S>0 THEN 340 <050> 
310 READ K* <242> 
320 FOR A=1 TO LEN(I#>-LEN<K*> <151> 
325 IF MID*(I$,A,LEN(K*>>=K*THEN S=K:T=A:F 

*=K* <015> 
330 NEXT <086> 
340 A=0:NEXT <21B> 
365 IF S>0 THEN K=S:L=T:GOTO 400 <227> 
370 K=N1:GOTO 560 <243> 
400 N=N1 <106> 
405 GOSUB 10 <089> 
410 C*=" "+RIGHT*(I$,LEN<I*>-LEN(F*>-L+1> <142> 
420 FOR X=1 TO N2/2:READ S*,R* <208> 
440 FOR L=1 TO LEN(C*> <004> 
450 IF L+LEN<S$)>LEN<C*)THEN 510 <096> 


Listing 1. »Eliza«. Mit Checksummer eingeben 
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C64 


480 IF MID*(C$,L,LEN(S*>><>SrrHEN 510 
490 CS=LEFT* < CS,L-1)+RS+RIGHT*<C*,LEN<C*>- 
L-LEN(S*>+1):L=L+LEN(R$> 

500 GOTO 540 

510 IF L+LEN(R$)>LEN(06)THEN 540 
520 IF MIDS(CS,L,LEN<RS>X>R$THEN 540 
530 C*=LEFT*(C*,L-1)+S*+RIGHTS(C*,LEN(C*)- 
L-LEN(R*)+1) 

540 NEXTs NEXT 

555 IF MID*<C$,2,1>=" "THEN C*=RIGHT$CC *, 
LEN<C*>-1> 

560 N=N1+N2 
570 GGSUB 10 

580 FOR X=1 TD RX (K):READ FS:NEXT X 
590 RX(K)=RX <K)+1:IF RX<K>>NX(K)THEN RX(K) 
=SX<K) 

600 IF RIGHT*<F*,1X>"*"THEN PRINT F$:P*=I 
GOTO 170 

620 PRINT LEFT*<F*,LEN(F*)-1);C»:GOTO 170 
1050 DATA"CAN YOU","CAN I",“YÖU ARE","YOUR 
E'V'I DONT","I FEEL","WHY DONT YOU" 
1060 DATA"WHY CANT I“,"ARE YOU","I CANT"," 
I AM","IM ","YOU ","I WANT","WHAT" 
1070 DATA"HOW","WHO","WHERE","WHEN","WHY", 
"NAME","CAUSE","SORRY","DRAEM","HELLO 

1080 DATA"HI ","MAYBE"," . NO","YOUR","ALWAY 
S","THINK","ALIKE","YES","FRIEND" 

1090 DATA"COMPUTER","ELIZA","MONEY","NOKEY 
FOUND" 

1230 DATA" ARE "," AM ","WERE ","WAS "," Y 
OU "," I ","YOUR ","MY ",» IVE » 

1235 DATA" YOUVE "," IM YOURE " 

1330 DATA"DON'T YOU BELIEVE THAT I CAN*" 
1340 DATA"PERHAPS YOU WOULD LIKE TO BE ABL 
E TO*" 

1350 DATA"YOU WANT ME TO BE ABLE TO*" 

1360 DATA"PERHAPS YOU DON’T WANT TO*","DO 
YOU WANT TO BE ABLE TO*" 

1365 DATA"WHAT MAKES YOU THINK I AM*","DDE 
S IT PLEASE YOU TO BELIEVE I AM*" 

1390 DATA "PERHAPS YOU WOULD LI KE TO BE*" 
1400 DATA"DO YOU SOMETIMES WISH YOU WERE*” 
1410 DATA“DON'T YOU REALLY*“,"WHY DON'T YO 
U*","DD YOU WISH TD BE ABLE TO*" 

1440 DATA"DOES THAT TROUBLE YOU?",“TELL ME 
MORE ABOUT SUCH FEELINGS." 

1460 DATA"DO YOU OFTEN FEEL*","DO YOU ENJO 
Y FEELING*" 

1480 DATA"DO YOU REALLY BELIEVE I DON-T*", 
"PERHAPS IN GOOD TIME I WILL*" 

1500 DATA"DO YOU WANT ME TO*“,"DO YOU THIN 
K YOU SHOULD BE ABLE TO*" 

1520 DATA"WHY CAN’T YOU*","WHY ARE YOU INT 
ERESTED IN WHETHER OR NOT I AM*" 

1540 DATA"WOULD YOU PREFER IF I WHERE NOT* 
","PERHAPS IN YOUR FANTASIES I AM*" 
1560 DATA"HOW DO YOU KNOW YOU CAN'T*","HAV 
E YOU TRIED?","PERHAPS YOU CAN NOW*" 
1590 DATA“DID YOU COME TO ME BECAUSE YOU A 
RE*","HOW LONG HAVE YOU BEEN*" 

1610 DATA"DO YOU BELIEVE IT IS NORMAL TO B 
E*","DO YOU ENJOY BEING*" 

1630 DATA"WE WERE DISCUSSING YOU— NOT ME. 

","OH, I*" 

1650 DATA"YOU-RE NOT REALLY TALKING ABOUT 
ME, ARE YOU?" 

1660 DATA"WHAT WOULD IT MEAN TO YOU IF YOU 
GOT*", "WHY DO YOU WANT*" 

1680 DATA"SUPPOSE YOU SOON GOT*","WHAT IF 
YOU NEVER GOT*" 

1700 DATA“I SOMETIMES ALSO WANT*",“WHY DO 
YOU ASK?" 

1720 DATA"DOES THAT QUESTION INTEREST YOU? 

1730 DATA"WHAT ANSWER WOULD PLEASE YOU THE 
MOST?" 

1740 DATA"WHAT DO YOU THINK?",“ARE SUCH QU 
ESTIONS IN YOUR MIND OFTEN?" 

1760 'DATA"WHAT IS THAT YOU REALLY WANT TO 
KNOW?","HAVE YOU ASKED ANYONE ELSE?" 
1780 DATA"HAVE YOU ASKED SUCH QUESTIONS BE 
FORE?" 

1790 DATA “WHAT ELSE COMES TO MIND WHEN YOU 
ASK THAT?" 

1800 DATA“NAMES DON'T INTEREST ME.“,"I DON 
’T CARE ABOUT NAMES— PLEASE GO ON." 


< 002 > 

<093> 

<014> 

<040> 

<217> 

< 161 > 
<035> 

<241 > 
<015> 

< 000 > 
< 116> 

< 114> 

< 000 > 

<126> 

< 101 > 

<036> 


<074> 

<034> 

<209> 

<20B> 

<045> 

< 156> 

<249> 

< 113> 

<167> 

<224> 
<065> 
< 219 > 

<059> 

<157> 

<039> 

<137> 

< 002 > 

<159> 

< 020 > 

<247> 

<255> 

<229> 

<229> 

<015> 

< 116> 
<099> 
<1B9> 
<086> 
<076> 
<07B> 
<1B8> 
<023> 
< 128> 
<240> 


1B20 DATA"IS THAT THE REAL REASON?“,"DON'T 
ANY OTHER REASONS COME TO MIND?" 

1840 DATA“DOES THAT REASON EXPLAIN ANYTHIN 
G ELSE" 

1850 DATA“WHAT OTHER REASONS MIGHT THERE B 
E?","PLEASE DON'T APOLOGIZE!” 

1870 DATA"APOLOGIES ARE NOT NECESSARY." 

1880 DATA"WHAT FEELINGS DO YOU HAVE WHEN Y 
OU APOLOGIZE?","DON'T BE SO DEFENSIVE 

1900 DATA "WHAT DOES THAT DREAM SUGGEST YOU 
?","DO YOU DREAM OFTEN?" 

1920 DATA"WHAT PERSONS APPEAR IN YOUR DREA 
MS?","ARE YOU DISTURBED BY YOUR DREAM 
S?" 

1940 DATA "HOW DO YOU DO_PLAESE STATE Y 

OUR PROBLEM." 

1950 DATA"YOU DON'T SEEM QUITE CERTAIN."," 
WHY THE UNCERTAIN TONE?" 

1970 DATA“CAN'T YOU BE MORE POSITIVE?","YO 
U AREN'T SURE?"."DON'T YOU KNOW?" 

2000 DATA"WHY NO*","DON'T SAY NO IT'S ALWA 
YS SO NEGATIVE","WHY NOT?“ 

2030 DATA"ARE YOU SURE?","WHY NO?","WHY AR 
E YOU CONCERNED ABOUT MY*" 

2060 DATA"WHAT ABOUT YOUR OWN*","CAN'T YOU 
THINK OF A SPECIFIC EXAMPLE?" , "WHEN? 

2090 DATA"WHAT ARE YOU THINKING OF?","REAL 
LY, ALWAYS?" 

2110 DATA"DO YOU REALLY THINK SO?","BUT YO 
U ARE NOT SURE YOU*" 

2130 DATA"DO YOU DOUBT YOU*",“IN WHAT WAY? 
", "WHAT RESEMBLANCE DO YOU SEE?" 

2160 DATA"WHAT DOES THE SIMILARITY SUGGEST 
TO YOU?" 

2170 DATA"WHAT OTHER CONNECTIONS DO YOU SE 
E? " 

2180 DATA"COULD THERE REALLY BE SOME CONNE 
CTIONS?”,"HOW?" 

2200 DATA"YOU SEEM QUITE POSITIVE.","ARE Y 
OU SURE?","I SEE.","I UNDERSTAND." 

2240 r - ,A"WHY DO YOU BRING UP THE TOPIC OF 
FRIENDS?","DO YOUR FRIENDS WORRY YOU 
?" 

2260 DATA "DO YOUR FRIENDS PICK ON YOU?","A 
RE YOU SURE YOU HAVE ANY FRIENDS?" 

2280 DATA"DO YOU IMPOSE ON YOUR FRIENDS?" 

2290 DATA"PERHAPS YOUR LOVE FOR FRIENDS WO 
RRIES YOU.","DO COMPUTERS WORRY YOU?" 

2310 DATA"ARE YOU TALKING ABOUT ME IN PART 
ICULAR?" 

2320 DATA"ARE YOU FRIBHTENED BY MACHINES?" 
,"WHY DO YOU MENTION COMPUTERS?" 

2340 DATA"WHAT DO YOU THINK MACHINES HAVE 
TO DO WITH YOUR PROBLEM?" 

2350 DATA“DON'T YOU THINK COMPUTERS CAN HE 
LP PEOPLE?" 

2360 DATA"WHAT IS IT ABOUT MACHINES THAT W 
ORRIES YOU?" 

2370 DATA"SAY, DO YOU HAVE ANY PSYCHOLOGIC 
AL PROBLEMS?" 

2380 DATA"WHAT DOES THAT SUGGEST TO YOU"," 
I SEE","I'M NOT SURE I UNDERSTAND YOU 

2410 DATA“COME COME ELUCIDATE YOUR THOUGHT 
S","CAN YOU ELABORATE ON THAT?" 

2430 DATA"THAT IS QUITE INTERESTING.","WHY 
DO YOU HAVE PROBLEMS WITH MONEY?" 

2450 DATA"DO YOU THINK MONEY IS EVERYTHING 
?" 

2460 DATA"ARE YOU SURE THAT MONEY IS THE P 
ROBLEM?" 

2470 DATA"I THINK WE WANT TO TALK ABOUT YO 
U, NOT<2SPACE>AB0UT ME","WHATS ABOUT 
ME?" 

2490 DATA"WHY DO YOU ALWAYS BRING UP MY NA 
ME?" 

2530 DATA 1,3,4,2,6,4,6,4,10,4,14,3,17,3,2 
0,2,22,3,25,3,28,4,28,4,32,3,35,5,40, 
9 

2540 DATA 40,9,40,9,40,9,40,9,40,9,49,2,51 
,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2 

2550 DATA 76,4,80,3,83,7,90,3,93,6,99,7,11 
6,3,113,3,106,7 

Listing 1. Das Eliza-Programm (Schluß) 


<239> 
<231 > 

< 120 > 

< 196> 

<001 > 

< 134> 

< 171 > 
<037 > 

< 199> 
<223> 
<073> 
<214> 

< 137> 
<076> 
<060> 

< 131 > 
<241 > 

< 160 > 
<204> 
<074> 

<038> 

< 154> 
<004> 

<242> 

<057> 

< 170> 
<063> 
<214> 
<087> 
<080> 

< 129> 
<239> 
<054> 

< 189> 
<235> 

<151 > 
<221 > 

< 193> 

< 159> 
<164> 
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eine Liste mit 
allen PEEKs und POKEs, 
Viele 

Programmier-Tricks 
werden durch 
diese Informationen 
erst möglich. 












TIPS&TRICKS 


C64 


V iele Tricks - wie das Sperren der Taste <RUN/ 
STOP>, den Cursor nicht mehr blinken lassen oder 
einen LIST-Schutz in das eigene Basic-Programm 
einbauen - sind nur mit Hilfe des POKE-Befehls möglich. 
Für Sie haben wir eine Liste mit allen wichtigen POKEs zu¬ 
sammengestellt. 

Oft ist es sehr hilfreich, in einigen Speicherzellen mit 
dem PEEK-Befehl nachzuschauen, welcher Wert dort ent¬ 
halten ist. Dazu finden Sie ebenfalls hilfreiche Informatio¬ 
nen. 

Die folgende Tabelle ist nach Speicherzellen geordnet. 
Dabei steht links die Nummer der Speicherzelle als Dezi¬ 
malwert, wie es für die PEEK- und POKE-Befehle notwen¬ 
dig ist. Rechts daneben finden Sie den entsprechenden 
Hexadezimalwert (sinnvoll für alle, die sich auch für Ma¬ 
schinensprache interessieren). In der Beschreibung 
(rechts) stehen alle wichtigen Informationen zu den jeweili¬ 
gen Speicherstellen. 


Dezimal Hex 


63/64 3f/40 


Dezimal Hex 


Beschreibun 



1 1 


10 a 

17 11 


19 13 


24 18 

43/44 2b/2c 

45/46 2d/2e 

55/56 37/38 


Inhalt 55 = normal 

Inhalt 54 = Basic ausgeschaltet (auf 69/70 45/46 

RAM umgestellt) 

Inhalt 53 = Basic und Kernel ausge¬ 
schaltet (auf RAM umgestellt). Es emp¬ 
fiehlt sich, Basic und Kernel vorher ins 
RAM zu POKEn, damit der Computer 
bei der Umschaltung nicht »abstürzt«. 

Ist PEEK(10) = 0, so war der letzte Be¬ 
fehl LOAD. Ergibt PEEK(10) eine 1, so 
ist VERIFY eingegeben worden. 


Mit diesem PEEK läßt sich abfragen, 
wie die letzte Variable zugewiesen wur¬ 
de. Ist PEEK(17) = 0, dann war die letz¬ 
te Variablenzuweisung ein INPUT, oder 
es hat noch keine Zuweisung stattge¬ 
funden. 

Ist PEEK(17) = 64, dann wurde die letz¬ 
te Variable durch GET geholt. 

Bei PEEK(17) = 152 erfolgte die letzte 
Variablenübergabe durch einen READ- 
Befehl. 


onöPisp»< 


144 

145 
147 


78 


90 

91 
93 


Nach POKE 19,64 wird beim nächsten 
INPUT-Befehl kein Fragezeichen aus¬ 
gegeben. Allerdings kann man nach¬ 
her durch Drücken der RETURN-Taste 
nicht mehr in die nächste Zeile gelan¬ 
gen. Es empfiehlt sich daher, nach dem 157 

INPUT-Befehl dies wieder mit POKE 
19,0 rückgängig zu machen. 

Mit POKE 24,0 wird FORMULAR TOO 
COMPLEX ERROR aufgehoben. 

Die Anfangs-Speicherstelle des zur 
Zeit im Speicher befindlichen Basic- 
Programmes errechnet sich durch 
PEEK(43) + PEEK(44)*256. 

Das Ende des Basic-Programmes er¬ 
hält man durch 

PEEK(45) + PEEK(46)*256. 183 

Das Ende des Basic-RAMs kann mit 
PEEK(55) + 256 *PEEK(56) abgerufen 184 

werden. 


9d 


b6 

b7 

b8 


Beschreibung 


dem zuletzt ausgeführten Basic-Befehl 
liegt. Das heißt die Speicherstelle, von 
der sich der Basic-Interpreter bei 
CONT den nächsten Befehl holt. 

Tip: Bei CONT kommt öfter CAN’T 
CONTINUE ERROR vor, wenn man 
nach dem STOPen ein CLR eingege¬ 
ben oder in irgendeiner Programmzeile 
etwas geändert hat. Liest man die Wer¬ 
te mit PEEK(61) und PEEK(62) nach 
der Unterbrechung aus, dann macht 
beispielsweise ein CLR nichts aus, 
wenn man vor CONT die zuvor ausge¬ 
lesenen Werte wieder in diese Spei¬ 
cherstellen POKEt. 

Nummer der aktuellen DATA-Zeile: Mit 
PEEK(63) + PEEK(64)*256 
erhält man die Nummer der DATA- 
Zeile, aus der gerade der letzte Wert 
geholt wurde. (Gut zum Finden von 
Fehlern in DATA-Zeilen geeignet.) 

Zuletzt zugewiesene Variable: 

Bei normalen Fließkomma-Variablen 
ließt man den Wert aus mit 
PRINT CHR$(PEEK(69)) + 
CHR$(PEEK(70)) 

Bei Integer-Variablen (z.B XY%) er¬ 
hält man den Namen durch 
PRINT CHR$(PEEK(69)-128) + 
CHR$(PEEK(70)-128) 

Strings (z.B. VX$) erhält man durch 
PRINT CHR$(PEEK(69)) + 
CHR$(PEEK(70)-128) 

Nach Ausführung dieses POKEs 
nimmt der C64 keinerlei Befehle mehr 
an: 

POKE 120,2 

Statusbyte: Mit PRINT ST läßt sich das 
Statusbyte abfragen. 

Nach WAIT 145,16,16 wartet der C 64 
auf den Feuerknopf von Joystick 1. 
Wenn man die LOAD-Routine im Be¬ 
triebssystem anspringt, holt es sich aus 
der Speicherzelle 147 die Information, 
ob LOAD oder VERIFY durchgeführt 
wird. 

Inhalt 0 = LOAD 
Inhalt 4 = VERIFY 

Ausgabe-Kontrolle: 

Inhalt 0 = Programm-Modus 
Inhalt 128 = Direktmodus 
Damit bei LOAD-Befehlen vom Pro¬ 
gramm aus die Mitteilungen SEAR- 
CHING, LOADING, oder VERIFYING 
auf dem Bildschirm erscheinen, setzt 
man vor dem LOAD-, VERIFY- oder 
SAVE-Befehl ein POKE157.128. 

PEEK(182) ruft die Zahl der Zeichen¬ 
lesefehler ab. 

PEEK(183) gibt die Länge des Filena¬ 
mens an. 

Die laufende Filenummer kann mit 
PEEK(184) abgerufen werden. 


57/58 39/3a Die Zeilennummer, bei der nach einer 

Programmunterbrechung gestoppt 
wurde, errechnet sich durch 
PEEK(57) + 256*PEEK(58) 

61/62 3d/3e Zeiger auf Basic-Statement für CONT: 

Durch 

PEEK(61) + PEEK(62)*256 
erhält man die Speicherstelle, die nach 


185 

b9 

Die aktuelle Sekundäradresse kann 
mit PEEK(185) angegeben werden. 

186 

ba 

Die derzeitige Gerätenummer wird 
durch PEEK(186) abgerufen. 

197 

c5 

Derzeitiger Tastendruck: PEEK(197) 

198 

c6 

Nach WAIT 198,1 wartet der Computer 
auf eine gedrückte Taste. 


148 
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TIPS & TRICKS 


| Dezimal 

Hex 

RVS Flag: Eine reverse Zeichenausga¬ 
be bei PRINT erfolgt nach POKE 199,1. 
POKE 199,0 hebt den RVS-Modus auf. 

200 

c 8 

Zeiger auf Zeilenende. PEEK(200) gibt 
an, wieviele Zeichen die zuletzt einge¬ 
gebene Zeile hatte. 

201/202 

c9/ca 

PEEK(201) gibt die Zeile der aktuellen 
Cursorposition an, während 

PEEK(202) die Spalte abruft. 

203 

cb 

Die derzeitig gedrückte Taste im 
CHR$-Modus kann mit PEEK(203) ab¬ 
gefragt werden. Ist keine Taste ge¬ 
drückt, so steht der Wert 64 in diesem 
Byte. 

204 

cc 

Nach POKE 204,0 bleibt der Cursor an, 
auch bei GET-Befehlen. Mit 

POKE 207,0: POKE 204,1 
gelangt man wieder in den Normalzu¬ 
stand zurück. 

211 

d3 

POKE 211,X - X bestimmt die Spalte 
der Cursorposition. Werte von 0 bis 39 
können eingegeben werden. Siehe 
auch 214. 

213 

d5 

Die Länge der momentanen Bild¬ 
schirmzeile läßt sich über PEEK(213) 
abf ragen. 

214 

d 6 

POKE 214,X - X bestimmt die Zeile der 
Cursorposition. Die Werte 0 bis 24 kön¬ 
nen eingegeben werden. Nach SYS 
58640 erscheint der Cursor auf der ent¬ 
sprechenden Position. 

215 

d7 

Das zuletzt eingegebene Zeichen im 
ASCII-Code liest man mit PEEK(215) 
aus 

631-640 

277-280 

Tastaturpuffer (ASCII-Code): Über 
POKE-Befehle lassen sich beispiels¬ 
weise Zeichen in den Tastaturpuffer 
eingeben. 

641-644 

281-284 

Start- und Endadressen des Basic- 
RAMs: Durch Verändern der (vorgege¬ 
benen) Werte kann man die Größe des 
Basic-RAMs bestimmen, beispielswei- 
g 0 s©tzt 

POKE 643,0 : POKE 644,128 : 

SYS 64764 

das Ende des Basic-RAM um 2 KByte 
nach oben. 

646 

286 

POKE 646,X - Der Farbwert X bestimmt 
die Cursorfarbe (0-15). 

647 

287 

POKE 647,X - X bestimmt die Farbe un¬ 
ter dem Cursor (Werte: 0-15). 

649 

289 

Länge des Tastaturpuffers: Nach 
POKE 649,0 wird die gedrückte Taste 
nicht mehr auf dem Bildschirm ausge¬ 
geben. Die maximale Größe des Tasta¬ 
turpuffers beträgt 10 . 

652 

28c 

Zähler für REPEAT-Verzögerung: Alle 
eingePOKEten Werte verzögern die 
Repeat-Funktion. 

Höherer Wert = größere Verzögerung. 

653 

28d 

PEEK(653) zeigt, ob eine der drei 
Tasten <SHIFT>, <CBM> oder 
<CTRL> gedrückt wurde: 

Bit 0 = SHIFT-Taste, 

Bit 1 = CBM-Taste, 

Bit 2 = CTRL-Taste. 

657 

291 

Nach POKE 657,128 ist eine Umschal- 


Dezimal Hex 


Beschreibun 


von der Tastatur her unmöglich. POKE 
657,0 erzeugt wieder den Normalzu¬ 
stand. 


770 

302 

Durch einPOKEn eines beliebigen 
Wertes erfolgt die READY-Ausgabe un¬ 
endlich oft. Nur Ausschalten hilft noch. 

775 

307 

POKE 775,X - X aktiviert einen List¬ 
schutz. Nur über den Wert 167 kann der 
Listschutz aufgehoben werden. 

776 

308 

Der Befehl POKE 776,1 zerstört das 
Programm. 

777 

309 

Nach POKE 777,1 wird kein Befehl 
mehr ausgeführt. Der Cusor befindet 
sich in der linken Ecke. 

781/782 

30d/30e 

Startadresse, ab der ein Programm ge¬ 
laden wird: Durch entsprechende 
POKE-Werte kann ein Basic-Pro- 
gramm in einen anderen Speicherbe¬ 
reich geladen werden. 

784/785 

310/311 

USR-Vektor: Erfolgt der Einsprung in 
ein Maschinenprogramm über den 
USR-Befehl, so muß die Einsprung- 
Adresse vorher in diese beiden Byte 
gePOKEt werden. 

788/789 

314/315 

IQR, Hardware-Interrupt: Das Betriebs¬ 
system springt ständig in diese Routi¬ 
ne. Durch Ändern des Inhalts kann man 
eigene »interruptgesteuerte» Maschi- 
nen-Routinen ständig laufen lassen. 
POKE788.49 hebt die Wirkung der 
Stop-Taste auf. POKE 788,52 schaltet 
sie wieder ein. 

702' 93 

318/319 

RESTORE-Vektor: 

PEEK(792) + PEEK(793)*256 
ergibt die Speicherstelle, an die beim 
Drücken der RESTORE-Taste gesprun¬ 
gen wird. 

Beispiel: Nach 

POKE 792,226 : POKE 793,252 
wird beim Drücken der RESTORE- 
Taste ein Reset ausgelöst. 

801/802 

321/322 

Durch die Kombination 

POKE 801,0:POKE 802,0: 

POKE 818,165 

wird ein SAVE-Schutz aktiviert. 

808 

328 

POKE 808,225 hebt die Wirkung der 
RUN/STOP-Taste auf, POKE 808,237 
macht es rückgängig. 

813 

32d 

Nach POKE 813,2 läßt sich ein Pro¬ 
gramm nicht mehr ändern. 

819/819 

332/333 

Folgende Kombinationen bewirken 
ebenfalls einen SAVE-Schutz: 

1. POKE 818,116 : POKE 819,196 

2. POKE 818,34 : POKE 819,253 

828/1019 

33c/3fb 

Kassettenpuffer: Nach LOAD oder 


tung zwischen Groß- und Kleinschrift 


VERIFY stehen im Kassettenpuffer fol¬ 
gende Informationen: 

828:1 = normales File, 3 = wurde mit 
SAVE"Name',1,1 abgespeichert. Sol¬ 
che Programme werden bei LOAD au¬ 
tomatisch ab der Adresse geladen, von 
der sie abgespeichert wurden. 
829/830: Hier ist die Startadresse des 
Programms abgelegt. 829 ist das Low- 
Byte, 830 das High-Byte. 

831/832: Endadressen des Programms 
833-1019: 186 Zeichen langer Pro¬ 
grammname. Auf dem Bildschirm wer¬ 
den nur 16 Zeichen angezeigt, aber es 
lassen sich bis 186 Zeichen lange Pro- 
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Dezimal Hex Beschreibung 


Dezimal Hex_Beschreibung 


36870 9006 

36871 9007 
42291 


53270 d016 

53280 d020 

53281 d021 

56320 dcOO 


56321 dcOl 

56325 dc05 

56464 dc90 

56576 ddOO 

56578 dd02 

65409 ff81 

65493 ffd5 


grammnamen abspeichern. Der Kas¬ 
settenpuffer ist auch gut zum Anlegen 
eigener Maschinenprogramme geeig¬ 
net, sofern nicht mit Datasette sondern 
mit einer Diskettenstation gearbeitet 
wird. 

PEEK(36870) liest die Horizontal- 
Position des Lichtgriffels. 

PEEK(36871) liest die Vertikal-Position 
eines angeschlossenen Lichtgriffels. 

Koppeladressen angleichen: Falls Pro¬ 
gramme mit NEW gelöscht wurden, 
kann man mit SYS 42291 die Byte 2049 
und 2050 wieder in Ordnung bringen, 
wenn vorher etwas anderes als 0 in die¬ 
se Speicherzellen gePOKEt wird. 


781 und 782 gibt die Startadresse an, 
ab der das Programm geladen werden 
soll. 

183,0 = kein Programmname. 

SYS 65493 = LOAD-Routine. 

65511 ffe7 Durch SYS 65511 lassen sich alle Files 
schließen. So erspart man sich das lä¬ 
stige Eintippen von 
CLOSEI :CLOSE2:CLOSE3.... 

Dabei sollte aber beachtet werden, daß 
auf diese Weise nur der Kanal ge¬ 
schlossen wird, aber keine Dateien auf 
einer Disk. 


(M. Kohlen/U. Jürgens/kn) 


VIC-Control-Register: Ein horizontales 
Softscrolling kann gePOKEt werden. 
POKE 53270,0 = scrollen nach links 
POKE 53270,1 = scrollen nach rechts 

POKE 53280.X - X bestimmt die Rah¬ 
menfarbe des Bildschirms. 

POKE 53281.X - X legt die Hintergrund¬ 
farbe des Bildschirms fest. 


Master Mind 

als Vierzeiler 


Joystick Port 2: 

WAIT 56320,16,16 wartet auf »Feuer¬ 
knopf« 

WAIT 56320,4,4 wartet auf »Joystick 
nach links« 

WAIT 56320,1,1 wartet auf »Joystick 
nach oben« 

WAIT 56320,2,2 wartet auf 
nach unten« 

WAIT 56320,8,8 wartet auf »Joystick 
nach rechts« 

Wie 56320, aber Joystick in Port 1. 

Die Blinksequenz des Cursors kann in 
diesem Byte bestimmt werden. Höhe¬ 
rer Wert = langsamere Blinksequenz. 

Mit POKE 56325,58 wird die normale 
Blinksequenz festgelegt. 

Nach WAIT 56464,16,16 wartet der 
Computer auf den Feuerknopf des Joy¬ 
stick 2. 

Mit PEEK(56576) kann man die Pins 
PB0 bis PB7 vom User-Port (auf der Un¬ 
terseite des Ports, siehe Handbuch) 
auslesen. Mit POKE in diese Speicher¬ 
zelle kann man auch Ausgaben über 
den User-Port programmieren. 

Datenrichtungsregister für den User- 
Port: Jedes der Bits gibt die Datenrich- R 
tung für die Pins PB0 bis PB7. Dabei 
gilt: Bit 1 gesetzt (1) = Ausgang, Bit v 
nicht gesetzt (0) = Eingang. 


Anzahl der Stellen 
Eingabe, Ziffern der Eingabe 
Ziffern der Lösung 
Belegungsvektoren für E bzw. L 
Richtige Ziffern an der richtigen Stelle 
Alle richtigen Ziffern 
Versuche 

Hilfs- und Laufvariablen (Hans Haberl/kn) 


'Joystick 


Es ist schon erstaunlich, in welcher Kurzform man dieses 
Spiel programmieren kann. Bei Master Mind geht es dar¬ 
um, eine Zahl, die sich der Computer »denkt«, zu erraten. 
Am Anfang gibt man die Stellenzahl der zu erratenden Zahl 
ein, sie darf maximal acht sein (man hat aber schon mit drei 
oder vier genug zu knobeln). In der ersten Spalte muß man 
nun jeweils eine Zahl eingeben, der Computer zeigt in den 
folgende,. drei Spalten an: 

1. Anzahl der richtigen Ziffern an der richtigen Stelle 

2. Anzahl der richtigen Ziffern an der falschen Stelle 

3. Anzahl der Versuche 


Beispiel eines Spiels: 
Stellen? 4 

? 1123 1 0 1 

? 4456 0 0 2 

? 7789 2 1 3 


? 8989 
? 7979 
? 7187 


1 0 4 
1 1 5 
4 0 6 


Es geht natürlich darum, die Zahl mit möglichst wenig 
Versuchen zu erraten. In Listing 1 müssen Sie beim Abtip¬ 
pen unbedingt alle Leerzeichen weglassen. In den Zeilen 
2 und 3 sind für einige Befehle die Kurzzeichen zu verwen¬ 
den, da die Zeilen sonst zu lang werden. Hier noch die 
Tabelle der Variablen: 

S: 

E,E0: 

L(): 

BQ,CO: 


SYS 65409 setzt den Video-Chip des 
C64 auf den Ursprungszustand zu¬ 
rück. 

LOAD-Routine des Betriebssystems: 
Mit folgender kleiner Routine kann man 
Unterprogramme nachladen, ohne ir¬ 
gendwelche Basic-Pointer (wie bei¬ 
spielsweise die Zeiger auf die End¬ 
adresse, 45 und 46) zu verändern: 
POKE 186,1: POKE 780,0: POKE 781,0 
: POKE 782,96 : POKE 183,0 : 

SYS 65493 

Erklärung: 186,1 = Geräteadresse für 
Recorder (8 = Floppy) 


1 INPUT"CCLR,DOWN »STELLEN "5 S:E=INT < 10 TS*RN 
D(0))sGOSUB 2:F0R 1=1 TO SsL<I)=ECI>sNEX 

Ts GOTO 3 <078> 

2 FOR 1=1 TO SsE(I)=E- 10 *INT(E/ 10 ):E=INT(E 

/ 10 ):C<I)= 0 :B (I >= 0 :R=R-(L(I)=E(I))sNEXT s 
RETURN <227> 

3 V=V+1:INPUT EsR=0:F=0:GOSUB 2sFOR 1=1 TO 

SsFOR J=1 TO Ss B=(L CJ)=E(I)> AND NOT B(I 
>AND NOT C(J> <129> 

4 B(I)=B(I> +Bs C (Jl—C13) +BsF=F—BsNEXT J,IsP 

RINT"<LIG.BLUE >"TAB(16 > R"C3SPACE >"F-R”{3 
SPACE>"VsIF R<S THEN 3 <100> 

Listing 1. »Master Mind« bitte mit dem 
Checksummer (Seite 159) eingeben 
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ler seine Program¬ 
me ohne eine Ba- 
sic-Erweiterung 
schreibt, vermißt häufig ei¬ 
nige zusätzliche Befehle. 

Oft ist es gerade ein kleiner 
Trick oder ein kleines Hilfs¬ 
programm, die das Pro¬ 
grammieren erleichtern. 

Unsere Mischung ist kunterbunt zusammengestellt: Sie 
finden beispielsweise Hilfen für den Umgang mit der Flop¬ 
py ebenso wie für die Datasette. 

Neben hilfreichen Tips gibt es kleine Anwendungsbei¬ 
spiele, die Sie leicht in eigene Programme einbauen oder 
Ihren Bedürfnissen anpassen können. Alle Listings und 
Beispiele sind natürlich in Basic geschrieben. 


1. »NEW« rückgängig machen 


Tips und Tricks 


für Basic-Programmierer 


h \änQ e * erf ' 

Sie a*e ften ’ 

“-S3äsggsff 

^l^nd-r^ sZUS L 


Wie schnell hat man einmal »NEW« eingetippt, um erst hin- . 

terher festzustellen, daß man das Programm noch gar nicht POKE 46,PEEK(35)+l:POKE45,PEEK(78l)-254 
gespeichert hat. Mit dieser kleinen Routine können Basic- eingeben. 

Programme nach einem »NEW« wieder vollständig zurück- Achtung: Das Ganze funktioniert nur, wenn man nach 
geholt werden. dem versehentlichen NEW-Befehl keine Variable definiert 

hat (zum Beispiel A=10)! 

(Alexander Rühl/ef) 


Man geht dabei so vor: Zuerst einmal muß das Listing 1 
eingetippt und gestartet werden. Es erzeugt dann auf Dis¬ 
kette das Programm »AUTO-OLD«. Hat man nun einmal 
aus Versehen »NEW« eingegeben, so legt man die Diskette 
mit dem Old-Programm in die Floppy und gibt 
»LOAD "AUTO-OLD ",8,1« ein. Das Old-Programm wird nun 
geladen und automatisch gestartet. Ein eventuell gelösch¬ 
tes Basic-Programm ist wiederhergestellt. 

(Georg Brandt/ef) 


0 :REM AUTO-OLD BY G. BRANDT <094> 

10 OPEN 1,8,1,"AUTO-OLD,P,W":FOR 1=0 TO 40 

:READ AtPRXNTtll ,CHR$(A) ; :NEXT:CLOSE 1 <059> 

20 DATA 221.2,165,44,160,1,145,43,32,51,16 

5,165,34,24,105,2,133,45,165,35,105 <068> 

30 DATA 0,133,46,169,131,162,164,141,2,3,1 

42,3,3,108,2,3,139,227,221,2 <079> 


Listing 1. Die Auto-OLD-Routine 
können Sie mit Hilfe des Checksummers eingeben 


2. Noch einmal: NEW rückgängig 


3. Professioneller Cursor 


Kleines Listing mit großem Effekt: Listing 2 zeigt, wie man 
mit wenig Aufwand bei Texteingaben einen professionell 
aussehenden Cursor erzeugen kann. Einfach eintippen 
und ausprobieren! 

(Jan C. Tchinitchian/ef 


10 BLS="?rLEFT>" <077> 
20 PRINT"ICLR>" <008> 
30 PRINT"BITTE GEBEN SIE TEXT EIN:" <0BB> 
40 PRINT BL*; <182> 
50 GET X*:IF X*=""THEN 50 <095> 
60 IF X*=CHR*<13)THEN 80 <202> 
70 PRINT X#;:TE*=TE*+X*:GOTO 40 <216> 
80 PRINT-SIE GABEN EIN:" <180> 
90 PRINT TE* <058> 


Listing 2. Professioneller Cursor 


Schnell ist es passiert, daß man einmal aus Versehen NEW 
eingetippt hat. Das Basic-Programm ist dann rettungslos 
verloren. Oder doch nicht? Nein, mit einigen POKEs und ei¬ 
nem SYS-Befehl kann man es »wiederbeleben«: 

P0KE2050,1:SYS42291:P0KE46,PEEK(35):POKE45,PEEK 
(781)+2:CLR 

In ganz seltenen Fällen kann es Vorkommen, daß der 
Computer daraufhin einen »illegal quantity error« meldet. 
Dann muß man noch zusätzlich 


4. Turbo-Cursor 


Wenn man seinen Cusor so weit beschleunigen möchte, 
daß man kein vernünftiges Wort mehr schreiben kann, ge¬ 
nügen zwei POKEs: 

POKE650,128:P0KE56325,1 

Der zweite POKE stellt die eigentliche Geschwindigkeits¬ 
beeinflussung dar. Die Zahl 1 bedeutet größtmögliche Ge- 
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schwindigkeit (Werte zwischen 1 und 255). Der erste POKE 
dient nur dazu, die Tastatur auf Wiederholfunktion zu schal¬ 
ten. Versuchen Sie nun einmal, das Wort »COMPUTER« zu 
schreiben. Sie werden an Ihren Fähigkeiten zweifeln... 

(Axel Stämmler/ef) 


5. Hilfe beim Eintippen von DATA-Zeilen 


Wenn Sie ein Programm abtippen, das sehr viele DATA-Zei¬ 
len enthält, schleichen sich fast automatisch irgendwelche 
Tippfehler ein. Meist werden diese DATA-Zeilen über eine 
FOR-NEXT-Schleife mit READ- und POKE-Anweisungen 
bearbeitet. Ein Tippfehler macht sich dann durch einen »il¬ 
legal quantity error« bemerkbar. Nun kann man mit 
LIST (PEEK(63)+PEEK(64)*256) 

die fehlerhafte DATA-Zeile sofort auf den Bildschirm brin¬ 
gen. Voraussetzung ist natürlich, daß Sie sich nicht schon 
beim Eingeben der FOR-NEXT-Zeile vertippt haben. 

(Oliver Twesten/ef) 


6. DATA Eingabehilfe 


Das kleine Programm ist eine Hilfe zum Eintippen von DA- 
TAs. In Zeile 1 wird nach der Startzeilennummer gefragt, ab 
der die DATAs beginnen und in welcher Schrittweite die Zei¬ 
lennummer erhöht werden soll. 

Nachdem das Programm mit RUN gestartet und die bei¬ 
den Parameter eingegeben wurden, erscheinen 20 Zeilen 
mit der gewünschten Startzeilennummer und dahinter das 
Wort »DATA«. 

Diese Zeilen können nun editiert werden. 

Das Programm läßt sich beliebig verändern. Statt DATA 
kann man auch PRINT oder ähnliches einsetzen. 

1 INPUT "STARTZEILENNUMMER";X: INPUT 
"SCHRITTWEITE" ;Y: FOR Z=1 TO 20 

2 PRINT X "DATA" : X=X+Y: NEXT:PRINT 
" (HOME) [CRSR DOWN)": END 

(Frank Besler/ef) 


7. Hilfe bei DATA-Wüsten 


Kennen Sie das nicht auch? Man tippt eine meterlange 
DATA-Wüste in seinen Computer ein, startet sie und erfreut 
sich an Meldungen wie zum Beispiel: out of data error, ille¬ 
gal quantity error oder andere. Folge: heftiges Vergleichen 
der DATA-Ziffern. 

Um dies zu verhindern, habe ich mir folgenden Trick ein¬ 
fallen lassen: Man nehme das zu bearbeitende Programm 
und gebe folgenden Einzeiler ein. 

FOR 1=1 TO 20000 : READA: PRINT A : PRINT : POKE 198,0 : 
WAIT 198,1 : NEXT I 

Nach jedem Tastendruck steht jeweils ein DATA-Wert auf 
dem Bildschirm, den Sie überprüfen sollten. Sollten Sie ei¬ 
nen Fehler entdecken, sofort im Heft markieren und weiter 
überprüfen. Erst nachdem Sie einen OUT OF DATA ER¬ 
ROR erhalten, können Sie mit der Korrektur beginnen. Nor¬ 
malerweise sind die DATAs jetzt in Ordnung. Wenn nicht, 
haben Sie einen Fehler gemacht und müssen die Überprü¬ 
fung wiederholen...’ 

(Jens Ingo Jakubczyk/ef) 


8. Tips zum Directory 


Dieser Tip zeigt, wie man das Inhaltsverzeichnis einer Dis¬ 
kette teilweise laden kann. 

Mit L0AD"$:NAME" ,8 wird nur der Eintrag »NAME« gela¬ 
den. Es werden Diskettenname, ID, Programmtyp, -länge 
und die freien Blocks ausgegeben. 

Mit LOAD " $:A* ",8 werden alle Einträge, die mit »A« anfan¬ 
gen, geladen. 

Mit LOAD" $:???" ,8 werden alle Einträge, die drei Zeichen 
lang sind, von Diskette geladen. 

(Sascha Sadewasser/ef) 


9. Sein oder Nichtsein 


Wie stellt man fest, ob eine Datei auf Diskette existiert oder 
nicht? Im Prinzip ganz einfach: Man versucht sie umzube¬ 
nennen, und zwar mit dem Namen, den sie ohnehin schon 
besitzt. Dann kann es nur zwei Fehlermeldungen geben: 
»FILE EXISTS« oder »FILE NOT FOUND«. Im C 64-Basic 
sieht das so aus: 

100 INPUT "PROGRAMMNAME"; N$ 

110 OPEN 15,8,15, ' R: " +N$+ " = " +N$: INPUT # 15, FM: 
CL0SE15: IF FM=62 THEN PRINT "DATEI NICHT VORHANDEN" : 
GOTO 100 

62 ist übrigens die Fehlernummer für »FILE NOT FOUND«. 

(Ernst Kofler/ef) 


10. Fcmatierte Strings 


Wenn Sie mit einem PRINT-Befehl einen String auf dem 
Bildschirm ausgeben wollen, erleben Sie manchmal eine 
böse Überraschung: Liegt die Länge des Strings zwischen 
40 und 255 Zeichen, wird nach dem 40. Zeichen der String 
abgeschnitten und in der nächsten Zeile fortgesetzt. Es 
spielt dabei keine Rolle, ob ein Wort auseinandergerissen 
wird. »Word-Wrapping«, wie es in jeder guten Textverarbei¬ 
tung zu finden ist, kennt das Betriebssystem nicht. 

Mit Listing 3 stellen wir Ihnen eine kleine Basic-Routine 
vor, die bei der Ausgabe eines Strings prüft, ob ein Wort 
beim Wechsel in die nächste Zeile auseinandergerissen 
wird. Paßt das Wort nicht meftf vollständig in die erste Zeile, 
wird es komplett in die nächste Zeile verschoben. 

Nach dem Programmstart werden Sie gefragt, in wel¬ 
chem Bereich ein String ausgegeben werden soll. Zwei Ta¬ 
bulatoren stehen zur Verfügung, die den Bereich links und 
rechts abgrenzen. Zusätzlich können Sie den Zeilenab¬ 
stand für die Ausgabe festlegen. 

Die Routine läßt sich, wenn Sie die Zeilen, die nur der De¬ 
monstration dienen, entfernen, leicht in eigene Programme 
einbinden. 

(A.Stranzinger/ef) 


1 REM ***** FORMATIERTER STRING ***** 

** MADE BY A.STRANZINGER ** <231> 

2 A*="FORMATIERTE AUSGABE EINES STRINGS - 

IDEE VON A.STRANZINGER AM 01.10.88 " <18B> 

3 AD=5B732:L=LEN(A») <072> 

4 INPUT"CCLR,DOWN,SPACE JSPALTENBEBINN {3SPA 

CE >3 <3LEFT >";SB <155> 

5 INPUT”{DOWN,SPACEISPALTENENDE{55PACE >36{ 

4LEFT>";SE <053> 


Listing 3. Word-Wrapping für den C64 
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6 INPUT"(DOWN,SPACE>ZEILENABSTANDI3SPACE>3 

{3LEFT>";ZA <245> 

7 PRINT" CCLR.WHITEIB-1-2— 

-3-" : POKE 21I,SB:SYS AD <116> 

8 FOR A=1 TO L:B*=MID*<AS,A,1) <039> 

9 IF B*=CHR*<32)THEN BOSUB 12:B*=MID*(A$,A 

,1) <030> 

10 PRINT B*;:NEXT <250> 

11 A=0:BOSUB 12:GOTO 8 <119> 

12 X=PEEK(211>:Y=PEEK(214):P=SE—X <108> 

13 FOR B=A+1 TO L:C*=MID*(A*,B,1) <211> 

14 : IF C*=CHR*(32)THEN 16 <101> 

15 NEXT <025> 

16 C=B—(A+2):IF C<P TUEN POKE 211,X:P0KE 2 

14,Y:SYS AD:RETURN <237> 

17 IF Y<20 THEN 20 <251> 

1B POKE 211,0:POKE 214,23:SYS AD <162> 

19 PRINT"IRVSONIDRUECKEN SIE F7 FUER EIN A 
NDERES FORMAT(SPACE,HOME>":POKE 198,0:W 

AIT 198,1:RUN <039> 

20 POKE 211,SB:POKE 214,Y+ZA:SYS AD:A=A+1: 

RETURN <085> 


Listing 3. (Schluß) 


11. Hilfe bei »file not found« 


Manchmal starrt man als stolzer Besitzer einer Floppy- 
Station auf den Bildschirm und die Fehlermeldung »file not 
found«. Besonders schlimm ist dies, wenn der Fehler in ei¬ 
nem Programm auftrat, man also nicht weiß, welches File 
denn nun nicht gefunden wurde. Kein Problem: Durch die 
Eingabe von »SYS 63123« (leicht zu merken) bringt der C 64 
die Meldung »SAVING...« und den zuletzt verwendeten 
File-Namen auf den Bildschirm. Sie können das leicht te¬ 
sten: Tippen Sie »LOAD”XYZ“,8« ein (plus RETURN-Taste) 
und anschließend »SYS 63123«. (Thomas Röder/ef) 


12. Schreibschutz für Disketten 


Ist es Ihnen nicht auch schon einmal passiert: Sie haben in 
mühevoller Kleinarbeit eine Diskette mit allen wichtigen 
Programmen zusammengestellt, und wie es der Zufall will, 
plötzlich befinden sich durch falsche Eingabe Files auf der 
Diskette, die nicht dort hingehören oder die Diskette ist neu 
formatiert. Gut, Files lassen sich löschen. Mit einer neu for¬ 
matierten Diskette sieht das schon anders aus. Die auf ihr 
gespeicherten Programme sind verloren. 

Der mechanische Schreibschutz (Aufkleber) ist auch 
nicht der Weisheit letzter Schluß, um solchen Zufällen zu 
•begegnen. Wenn häufiger Daten auf der Diskette geändert 
werden sollen, muß der Schreibschutz jedesmal entfernt 
und nach erfolgreicher Änderung wieder angebracht wer¬ 
den. Um diesen mechanischen Schreibschutz zu umge¬ 
hen, kann eine Diskette auch softwaremäßig geschützt 
werden (Listing 4). 

Wie das funktioniert, soll kurz erklärt werden. 

Auf der Diskette ist im 2. Byte auf Spur 18 Sektor 0 das 
Formatkennzeichen der 1541 gespeichert, und zwar die 
Zahl $41. Wird in dieses Byte eine andere Zahl geschrieben 
(mit einem Disketten-Monitor), so funktioniert das Be¬ 
schreiben einer Diskette nur so lange, bis die Floppy- 
Station neu initialisiert wird (zum Beispiel aus- und wieder 
einschalten). Wird jetzt versucht, ein Programm oder Daten 
zu speichern, meldet die Floppy-Station einen Formatfeh¬ 
ler, und nichts geht mehr. Dieser Software-Schutz funktio¬ 
niert auch dann, wenn versucht wird, die Diskette mit 


OPEN 15,8,15, "N:TEST" 

zu formatieren. Das heißt, formatiert wird die Diskette mit 
dieser Befehlssequenz eigentlich nicht. Es wird nur das In¬ 
haltsverzeichnis und ein Diskettenbereich (BAM) gelöscht, 
der Informationen darüber enthält, welche Diskettenblöcke 
belegt sind und welche nicht. Dieser Vorgang nennt sich 
auch »weich formatieren«*. 

Soll eine softwaremäßig geschützte Diskette »ent¬ 
schärft« werden, taucht ein Problem auf. Es läßt sich ja ab¬ 
solut nichts mehr speichern beziehungsweise ändern. Man 
muß also das Betriebssystem der Floppy-Station davon 
überzeugen, daß das richtige Formatkennzeichen an der 
richtigen Stelle steht. Dazu existiert im Speicher der 
Floppy-Station eine Speicherzelle, in die nach jeder Initiali¬ 
sierung das aktuelle Formatkennzeichen gespeichert wird. 
Es handelt sich um die Speicherzelle $101. Wird in diese 
Speicherzelle mit dem Befehl 
PRINT #15," M-W " CHR$(1)CHR$(1)CHR$(1)CHR$(65) 

(Zeile 100) wieder das 1541 Formatkennzeichen ($41 bezie¬ 
hungsweise 65 oder A) geschrieben, läßt sich die Diskette 
wieder ganz normal beschreiben. Unter anderem kann nun 
auch wieder das Formatkennzeichen auf der Diskette ge¬ 
ändert werden. (Bruno Henze/ef) 


10 OPEN 15,8,15, “I“:OPEN 2,8,2-,"#" <076> 

20 PRINTB15,"Ul 2 0 18 0" <248> 

30 PRINTB1 5 , "B-P 2 2“:GETB2,FO$ <113> 

50 PRINT"CC1.R.2D0HN,3SPACE>ALTES FORMATZEI 

CHEN = “;FO$ <189> 

55 IF FO$="A"THEN X$="X" <031> 

56 IF FO$ < >"A"THEN X$="A“ <136> 

60 PRINT”CDOWN,3SPACEDNEUES FORMATZEICHEN 

■»_. = "; X$; ” CL.EFT> ”; < 146 > 

70 POKE 198,0-WAIT 198,1 <042> 

80 A$=X$:GET X$ = IF X$=CHR$(13 JTHEN X$=A$:G 

OTO 90 <043> 

85 PRINT X$ <191> 

90 IF FO$="A"THEN 200 <172> 

100 PRINTB15,"M-W"CHR$<1)CHR$<1>CHR$<1>CHR 

$(65) <189> 

200 PRINTÖ15,"B-P 2 2":PRINTB2,X$; <071> 

220 PRINTÖ15,”U2 2 0 18 0":PRINT <119> 

230 IF X$="A"THEN PRINT”C2DOWN.3SPACE.RVSO 

N}SCHREIBSCHUTZ ENTFERNT" <197> 

240 IF X$<>"A"THEN PRINT"C2DOWN,3SPACE,RVS 

ON1SCHREIBSCHUTZ AKTIVIERT" <229> 

250 PRINTB15,"I":CLOSE 2:CLOSE 15 <047> 


© 64'er 

Listing 4. Schreibschutz für Disketten 


13. Programme nachladen 


Wenn man von einem Basic-Programm aus ein zweites 
Programm (meist eine Maschinenroutine) nachladen 
möchte, ist dies gar nicht einmal so schwierig. Man muß nur 
ein paar Punkte beachten. 

Der wichtigste wäre, daß der C 64 nach Beenden des La¬ 
devorgangs einen »GOTO erste Programmzeile« ausführt. 
Wenn Sie zu Beginn eines Basic-Programms also eine Ma¬ 
schinenroutine (zum Beispiel Listing 2) durch »10 LOAD 
”XYZ’’,8« nachladen möchten, würde sich der C 64 in einer 
Endlosschleife »aufhängen«. Wir müssen uns beim ersten 
Durchlauf der Zeile 10 merken, daß das Programm jetzt 
schon geladen ist. Am einfachsten geschieht dies durch 
»10 IF A=0 THEN A=1 : LOAD ”XYZ”,8«. Beim ersten Pro¬ 
grammstart mit »RUN« werden alle Variablen, also auch A, 
auf Null gesetzt. Die IF-Bedingung ist daher erfüllt; der 
LOAD-Befehl wird ausgeführt. Danach beginnt der C 64 
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wieder bei Zeile 10, die Variable A hat jetzt jedoch den Wert 
1 - der LOAD-Befehl wird übersprungen und im Programm 
fortgefahren. Möchte man mehrere Programme nachla¬ 
den, geschieht dies auf dieselbe Weise: 

10 IF A=0 THEN A=1 : LOAD "PI",8 

20 IF A=1 THEN A=2 : LOAD " P2 ", 8 

30 IF A=2 THEN A=3 : LOAD "P3",8 

und so weiter. 

Dies alles gilt jedoch nur für Maschinenprogramme! Möch¬ 
te man ein Basic-Programm nachladen, so ist dies schon 
etwas komplizierter. Solange das nachgeladene Pro¬ 
gramm kürzer ist als das erste, genügt es, einen einfachen 
LOAD-Befehl einzusetzen (die IF-Abfrage kann entfallen, 
da das zweite Programm ja gleich gestartet wird). Wenn das 
nachgeladene Programm jedoch länger ist, werden sämtli¬ 
che Variablen überschrieben. 

Die allgemein günstigste Lösung soll hier kurz vorgestellt 
werden. Sie kann sowohl für Maschinen-als auch für Basic- 
Programme Verwendung finden. 

Wenn Ihnen der Begriff ..Tastaturpuffer« geläufig ist, kön¬ 
nen Sie diesen Absatz überspringen. Wenn nicht, geben 
Sie einmal folgende Zeile ein (ohne Zeilennummer), 
drücken < RETURN > und dann ein paar Tasten (bevor das 
»READY.« erscheint). 

FOR 1=1 TO 2000 : NEXT 

Sie sehen, daß sich der C 64 Ihre Tastendrücke (bis zu 
zehn Stück) gemerkt hat. Er speichert sie in seinem »Tasta¬ 
turpuffer«. Das Gute daran ist, daß wir durch ein paar ge¬ 
zielte POKE-Anweisungen in einem Basic-Programm die¬ 
se Tastendrücke simulieren können. Das ist auch das Prin¬ 
zip unserer Laderoutine: 

Wir schreiben den LOAD-Befehl, der unser zweites Pro¬ 
gramm nachladen soll, auf den Bildschirm und machen 
dem C 64 vor, daß wir die RETURN-Taste gedrückt hätten. 
Dadurch wird der LOAD-Befehl dann ausgeführt. Also: 

10 PRINT "|CLR,2D0WN]L0AD"CHR$(34)"XYZ"CHR$(34)",8 

20 PRINT " (4D0WN] RUN(H0ME] "; 

(Zur Erinnerung: Buchstaben innerhalb geschweifter 
Klammern dürfen Sie nicht ausschreiben, sondern müssen 
die entsprechenden Tasten drücken.) 

Was bedeuten die »CHR$(34)« in der Zeile 10? Wie Sie 
vielleicht wissen, ist es nicht möglich, ein Anführungszei¬ 
chen innerhalb von Anführungszeichen zu schreiben (mit 
»PRINT """«?). Dieses benötigen wir aber für den 
LOAD-Befehl. Das CHR$(34) bewirkt nun, daß an der ent¬ 
sprechenden Bildschirmposition ein Anführungszeichen 
ausgegeben wird. 

Wenn Sie das Programm mit RUN starten, erscheint in 
der dritten Zeile der LOAD-Befehl und etwas weiter unten 
ein »RUN«. Wenn Sie jetzt zweimal < RETURN > drücken 
würden und ein Programm mit dem Namen »XYZ« auf Dis¬ 
kette hätten, würde dieses geladen und gestartet. Da wir 
das Ganze aber programmgesteuert machen wollen, müs¬ 
sen wir die beiden RETURNs von Basic aus simulieren, al¬ 
so in den Tastaturpuffer schreiben. Dies geschieht über: 
30 P0KE 631,13 : POKE 632,x3 

Der Tastaturpuffer hat nämlich die Adressen 631 bis 640. 
»13« ist der ASCII-Code der RETURN-Taste (siehe auch 
entsprechenden Anhang im Commodore-Handbuch zu Ih¬ 
rem C 64). Jetzt müssen wir dem C 64 nur noch mitteilen, 
daß im Tastaturpuffer noch zwei unbearbeitete Tasten¬ 
drücke vorliegen: 40 P0KE 198,2 

Und damit die Tastendrücke auch ausgeführt werden, 
muß noch eine END-Anweisung folgen: 50 END 

Natürlich können Sie über diesen Trick nach dem Lade¬ 
vorgang auch erst eine Variable definieren oder einen PO- 
KE ausführen. Dazu müßten Sie einfach die PRINT-Anwei- 
sung in Zeile 20 ändern. 


Der Tastaturpuffer bietet eine Fülle von Möglichkeiten. 
Wer sich erst einmal mit ihm angefreundet hat, wird ihn 
nicht mehr missen wollen. Beim Ausprobieren von Pro¬ 
grammen, die mit dem Tastaturpuffer arbeiten, ist es rat¬ 
sam, den Tastenzähler bei Adresse 198 so lange auf Null 
stehenzulassen, bis auf dem Bildschirm die Positionierung 
der auszuführenden Befehle stimmt. Zu beachten wäre 
noch, daß Sie in den Tastaturpuffer nur ASCII-Werte PO- 
KEn dürfen (über PRINT ASC( "Taste") oder Anhang im 
Handbuch herauszufinden). (Thomas Röder/ef) 

14. Stichwort: Directory 


Eine wirklich einfache Methode, das Disketten-Inhaltsver- 
zeichnis ohne Programmverlust zu betrachten, ist fol¬ 
gende: 

P0KE254, PEEK(45): P0KE255, PEEK(46): P0KE44,192: LOAD 

"$",8 

Das Directory kann nun gelistet werden. Alle anderen 
Eingaben wie »RUN«, »NEW« oder ähnliches führen jedoch 
zu einem »syntax error«. Zum Weiterarbeiten mit dem 
Basic-Programm sind noch drei POKEs einzugeben: 
P0KE45, PEEK(254): P0KE46, PEEK(255): P0KE44,8 
Ein eventuell vorhandenes Basic-Programm bleibt erhal¬ 
ten und kann normal fortgesetzt werden.(Thomas Röder/ef) 

15. Hilfe für Dotosettenbesitzer 


Kürzere Maschinenprogramme werden vom Programmie¬ 
rer gern.- j m Kassettenpuffer abgelegt. Den Floppy-Be- 
sitzer stört dies nicht. Er kann Programme laden und das 
Maschinenprogramm bleibt ihm erhalten. Nicht so beim 
Benutzer einer Datasette. Lädt er ein Programm von Kas¬ 
sette in den Bereich ab 828 ($033C), so wird es zerstört. Es 
gibt aber einen Trick, den Kassettenpuffer an einen ande¬ 
ren Speicherbereich zu legen. In den Speicherstellen 178 
und 179 steht der Beginn des Kassettenpuffers. Normaler¬ 
weise beginnt dieser bei 828. Durch Verändern dieses Vek¬ 
tors können wir den Kassettenpuffer beim Laden von Pro¬ 
grammen schonen. Um ihn ans Ende des Speicherbe¬ 
reichs zu legen, schreiben Sie: POKE 179, PEEK (56)-2. 

(Herbert Kunz/ef) 

16. Maschinenprogramme kopieren 


Besitzt man kein Kopierprogramm, kann man Maschinen¬ 
programme mit Hilfe des MSE kopieren: MSE laden - MSE 
starten - Programm laden - andere Diskette/Kassette eini¬ 
gen - Programm mit CTRL-S wieder speichern. Basic- 
Programme lassen sich mit dieser Methode übrigens ge¬ 
nauso kopieren. (Thomas Röder/ef) 

17. Programme von Datasette nachladen 


Mit Hilfe des folgenden POKEs wird das nächste Pro¬ 
gramm von der Datasette nachgeladen und automatisch 
gestartet: 

POKE 631,131 : POKE 198,1 : END 

Funktionsweise: 

Dem C 64 wird durch den ersten POKE vorgetäuscht, es 
würde gerade die SHIFT-RUN/STOP-Taste gedrückt. Der 
Code dieser Tastenkombination (131) wird in den Tastatur- 
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puffer ab Adresse 631 geschrieben. Daraufhin muß dem 
Computer noch mitgeteilt werden, daß sich in diesem Tasta¬ 
turpuffer ein noch nicht bearbeiteter Tastencode befindet 
(POKE 198,1). (Hans Ippisch/ef) 

18. Adressenverwaltung 


Trotz der geringen Länge des Programms bietet Listing 5 
eine recht komfortable Adressenverwaltung. 

Vier Menü-Punkte stehen nach dem Start zur Auswahl: 
Liste: Gibt alle vorhandenen Datensätze auf dem Bild¬ 
schirm aus. 


1: END < 184 > 

17 IF PEEK(2)=0 THEN END <0655 

18 OPEN 15,8,15,"S:ADRESSEN":CLQSE 15:SAVE 

."ADRESSEN",8:END <1B2> 

1<? PRINT C*:FOR L=0 TO 6:PRINT TAB(2);D*;B 

*<L>:NEXT L.-RETURN <255> 

100 DATA 0 <243> 


Listing 5. (Schluß) 


19. INPUT ohne Fragezeichen 


Suchen: Prüft alle sieben zur Verfügung stehenden Da¬ 
tenfelder auf Übereinstimmung mit dem Suchbegriff. 

Eingabe: Mit diesem Punkt werden neue Daten in die 
Datei übernommen. 

Ende: Wurden neue Eingaben gemacht, wird die neue 
Datei unter dem Namen »ADRESSEN« auf Diskette gespei¬ 
chert. 

Alle neu eingegebenen Daten werden in Form von DATA- 
Zeilen an das Programm angehängt. Geben Sie viele 
Adressen ein, wird das Programm wesentlich länger. Die 
Zeile 100 enthält einen Zähler, wieviel Datensätze existie¬ 
ren: Die Zahl Null zeigt an, daß keine Daten vorhanden 
sind. 

Eine auf Diskette vorhandene Datei wird zuerst gelöscht, 
bevor eine erweiterte gespeichert wird. Der alte Fehler des 
Überschreibens unter Verwendung des »Klammeraffen« 
wird umgangen. 

Bei vielen Adressen ist die Lösung mit DATA-Zeilen nicht 
unbedingt zu empfehlen, die Verwendung einer sequentiel¬ 
len Datenspeicherung hat dann Vorteile. Mit einer geringen 
Anzahl von Adressen ist diese Adressenverwaltung ein her¬ 
vorragendes Beispiel dafür, daß gute Programme nicht im¬ 
mer sehr lang sein müssen. (G.Schrotz/et) 


Eine von vielen Möglichkeiten, das lästige Fragezeichen 
beim INPUT-Befehl wegzubekommen, ist die folgende: 
OPEN 1,0 : INPUT #l,A$ : CLOSE 1 (Thomas Röder/ef) 


20. Rundungsfehler 


Wie jedermann weiß, ist die Rechengenauigkeit des C 64 
ziemlich gering. Manchmal werden gerundete Ergebnisse 
angezeigt, die zwar richtig aussehen, deren mit Hilfe der 
INT-Funktion ermittelter ganzzahliger Teil ganz anders 
aussieht, nämlich um 1 kleiner ist. Ein Beispiel: 
1/50*100=2, aber 
INT(1/50*100)=1! 

Dies kann man verhindern, indem man die Zahl erst mit 
»STR$« in einen String umwandelt, mit »VAL« daraus wie¬ 
der «ine Zahl macht und dann die ganze Zahl ermittelt, also 
I NT(VAL(STR$(1/50*100)))=2. 

Dieser Trick ist vor allem nützlich bei Rechnungen, bei 
denen die 9/10-Rundung schon zu ungenau ist. 

(Wolfgang Müller/ef) 


1 PRINT CHR*<14):DS=CHRS(17)+CHR*<17>:I*=C 

HR*(1B):C*=CHR*<147):H*=CHR*<19> <193> 

2 U*=" ADRESSEN ":A*<0>="1 .LISTE":A*< 1) ="2 

SUCHEN”:A$<2)=“3 EINGABE” <lü> 

3 A*<3>="4 .ENDE":B*(0> = "ANREDE: " :B $<l)="yp 

RNAME:":B*(2)="AAME:" <197> 

4 B* (3) =" STRASSE: ": BS (4) = " P-LZ: ":B*(5)="ART 

:":B*(6>="JELEF0N:":E*=CHR*(34) <191> 

5 PRINT C*;:PRINT TAB(2); 14;Ui;DJ; DJ:FOR I 

=0 TO 3:PRINT TAB(2);A$(I);D*:NEXT I <017> 

6 PRINT TABC2);D*;I*;" AUSWAHL 1-4 ";.:INPU 

T X: IF X<1 QR X>4 GOTO 5 <005> 

7 ON X GOTO 8,10,14,17 <243> 

B RESTORE:READ E:FOR 1=1 TO E:FOR J=0 TO 6 

:READ E#<J):NEXT J:GOSUB 19:PRINT H*:FOR 
J=0 TO 6 <021> 

9 PRINT TAB(13);DT;Et(J):NEXT J:POKE 19B,0 

:WAIT 19B,1:NEXT I:GOTO 5 <189> 

10 PRINT C*;D*;D*:INPUT"SUCHBEGRIFF: ";S*: 
RESTORE:READ E:FOR 1=1 TO E:FOR J=0 TO 

6 <249> 

11 READ E$(J):NEXT J:FOR J=0 TO 6: IF S*OE 

♦(J)GOTO 13 <022> 

12 GOSUB 19:PRINT H*:FOR K=0 TO 6:PRINT TA 
B(13);D*;E*(K):NEXT K:POKE 198,0:WAIT 1 

98,1 <08b> 

13 NEXT J,I:GOTO 5 <219> 

14 GOSUB 19:PRINT H*:FOR 1=0 TO 6:PRINT TA 
B < 13) ;D»; : INPUT E1=(I):NEXT I:RESTORE: RE 

AD E <073> 

15 E=E+1:PRINT C*;"100DATA"E:FOR 1=0 TO 6: 

PRINT 100+E*10+I;"DATA"+E*+E»(I)+E*:NEX 

T I <232> 


16 PRINT"GOTO1":POKE 631,19:FOR 1=1 TO 9:P 
OKE 631+1,13:NEXT I:POKE 198,10:POKE 2, 

Listing 5. Eine menügesteuerte Adressenverwaltung 


21. Hauptstadt-Quiz 


Kennen Sie sich in Geographie aus? Listing 6 ist ein kleines 
Erdkunde-Quiz: Sie werden nach der Hauptstadt eines 
Landes gefragt. Geben Sie eine richtige Antwort, erscheint 
nach einer Bestätigung die nächste Frage. Nach einer fal¬ 
schen Antwort gibt das Programm zuerst die richtige Stadt 
an, bevor es mit der nächsten Frage weitergeht. 

Da die Länderund Städte in Form von DATA-Zeilen vorlie¬ 
gen, kann dieses Programm jederzeit erweitert werden. 
Wenn Sie einen Sport-Quiz bevorzugen: Ändern Sie ein¬ 
fach die entsprechenden DATA-Zeilen. Wenn Sie die Zahl 
der Fragen erhöhen, vergessen Sie nicht, in Zeile 10 den 
Ausgangswert für N anzupassen. (F.Fenske/ef) 


10 LET N=2B:LET W=0:LET R=0:FOR 1=1 TO N:R 

EAD X*,Y* <178> 

20 PRINT"CCLR,RVSON>HAUPTSTADT QUIZ 1988 B 

Y FRANK FENSKE":PRINT:PRINT <23B> 

30 PRINT"WIE HEISST DIE HAUPTSTADT VON/DER 

":PRINT:PRINT" ";X$;"?“:PRINT <187> 

40 INPUT Z* :PRINT <255> 

50 IF Y*=Z*THEN LET R=R+1:PRINT“(RVSONJRIC 
HTIG ";Y*;"":FOR F=0 TO 500:NEXT F:PRIN 
T:NEXT I <146> 

60 IF Y*OZ*THEN LET W=W+1: PRINT" <RVSON>FA 
LSCH ";Y*;"":FOR F=0 TO 500:NEXT F:PRIN 

Listing 6. Prüfen Sie Ihre Erdkunde-Kenntnisse 
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T:NEXT I <180> 

7B PRINT-SIE WURDEN ";N;"MAL BEFRABT":PRIN 

T"SIE BABEN ”;R;" RICHTIGE ANTWORTEN" <231> 
B0 PRINT“SIE GABEN ";W;” FALSCHE ANTWORTEN 

" <053> 

90 PRINT"{DOWN,RVSONJDAS WARS LEUTEC3SPACE 

>RUN ODER RESET" <130> 

100 DATA"AUSTRALIEN“, "CANBERRA":DATA"U.S. 

A.“,"WASHINGTON" <002> 

110 DATA"JAPAN","TOKYO":DATA"TUERKEI“,"ANK 

ARA":DATA"SPANIEN","MADRID" <222> 

120 DATA"DEUTSCHLAND","BONN":DATA"CHINA"," 

PEKING"DATA"AEGYPTEN" , "KAIRO" <093> 

130 DATA " U. D . S . S. R " , " MOSKAU " : DATA " OESTERRE 

ICH","WIEN":DATA"ENGLAND","LONDON" <252> 

140 DATA"IRAN","TEHERAN":DATA"SCHWEDEN","S 

TOCKHDLM":DATA"DAENEMARK","KOPENHAGEN" <115> 
150 DATA"ISRAEL","JERUSALEM“:DATA"KANADA", 

" OTTAWA " : DATA " LICHTENSTE IN"," VADUZ " < 034 > 

160 DATA"THAILAND","BANGKOK":DATA“UNGARN", 

"BUDAPEST":DATA"LIBANON","BEIRUT" <197 > 

170 DATA"ALGERIEN","ALGIER":DATA"CHILE","S 

ANTIAGO":DATA"CUBA","HAVANNA" <111> 

1B0 DATA " GR IECHENLAND “ , " ATHEN ": DATA " IRLAND 

","DUBLIN"s DATA”ITALIEN","RDM" <121> 

190 DATA"WER SCHRIEB DIESES PROGRAMM","FRA 

NK FENSKE" <030> 

200 DATA"WANN WURDE DIESES PROGRAMM GESCHR 

IEBEN","1988" <224> 


Listing 6. (Schluß) 


22. Datasette richtig justiert 


Jetzt ist Schluß mit »LOAD ERROR« beim Abspielen von 
fremden Kassetten. 

Jeder, der eine Datasette besitzt, weiß, daß diese bei ei¬ 
nem anderen C 64-Besitzer meist nicht mit derselben Ton¬ 
kopfeinstellung justiert ist. Bekommt man eine heißerwarte¬ 
te Kassette mit Spielen oder anderen Programmen, wo¬ 
möglich noch im Turbo-Tape-Format, ist die Enttäuschung 
groß, wenn man feststellt, daß die Tonkopfjustierung von 
Aufnahme- und Wiedergabegerät abweicht. 

»SYNCHRO JUSTAGE« (Listing 7) brennt einer Kassette 
ein 50-Herz-Synchronsignal auf, das nach der Übergabe 
der Kassette mit »SYNCHRO JUSTAGE« auf dem Bild¬ 
schirm ausgewertet wird. Der Empfänger stellt nun mit der 
Einstellschraube seinen Tonkopf so ein, daß das Flackern 
des Bildschirmes minimal wird. Je weniger er flackert, de¬ 
sto besser hat man justiert. Wandert der Synchronbalken 
nach oben, läuft die Datasette bei der Wiedergabe schnel¬ 
ler als bei der Aufnahme und umgekehrt. Dann gilt es, zu¬ 
sätzlich die Motorgeschwindigkeit zu überprüfen und opti¬ 
mal einzustellen, bis der schwarze Balken stillsteht. 

Ich tausche nur noch Kassetten mit Synchron-Signal aus 
und kann keine Probleme mit meiner Datasette beklagen. 
Man muß zwar von Zeit zu Zeit seine Tonkopfeinstellung ei¬ 
ner anderen anpassen, kann aber seinem Bekannten sa¬ 
gen, wie viele Umdrehungen seine Einstellschraube von 
der eigenen abweicht. (Reinhard Abdel-Hamid/ef) 


10 KOR 1=36864 TO 36935=READ A:S=S+A=POKE 

T,A = NEXT <054> 

Z0 TF S<>6828 THEN PRINT "FEHLER IN DATA’S! 

=STOP <034> 

30 PRINT"CCLR,DOWN,5RIGHTJSYNCHR0-TEST FUE 

R DATASETTEN" <041> 

40 PRINT"C3DOWN,5RIGHT1RUECKSPULEN UND ’PL 

AY’ ODER" <006> 

Listing 7. »Synchro Justage« 


50 PRINT”C6RIGHTJ’PLAY’+’RECORD’ DRUECKEN. <119> 
60 PRINT"C2DOWNTSIGNALCSPACE,RVS0N5ACRV0FF 
JUSWERTEN ODERCSPACE,RVSON>SCRVOFF>CHRE 
IBEN?-"; <123> 

70 POKE 204,0=GET A$=IF A$="A"THEN SYS 368 

96 <188> 

80 IF A$<>"S"THEN 70 <174> 

90 SYS 36864 <126> 

100 DATA 169,0,141,17,208,120,173,18,208,7 

4,74,74,74,41,8,9,7,133,1,141,24 <204> 

110 DATA 212,74,74,74,141,32,208,76,6,144, 

234.120,169,7,133.1,169,0,141,17 <020> 

120 DATA 208,141,32,208,173,13,220,41,16,2 

40,249,173,32,208,73,1,141,32,208 <046> 

130 DATA 10,10,10,141,24,212,76,45,144,0,0 

,1 <068> 


© 64’er 

Listing 7. (Schluß) 


23. Betrifft: Joystick 


Jeder Neuling unter den C 64-Fans wird sich früher oder 
später fragen, warum Commodore gleich zwei Joystick- 
Ports einbaute, es aber versäumte, das Basic des C 64 um 
eine Funktion zu bereichern, diese Joysticks auch abzufra¬ 
gen. Viele andere Computer haben einen »JOY(X)«-Befehl, 
der die Richtung angibt, in die der Joystick gerade gedrückt 
wird. 

Auf dem C 64 wurden solche Abfragen bisher mit lang¬ 
wierigen IF-THEN-Sequenzen über die PEEK-Funktion 
realisiert. Es gibt aber einen sehr viel eleganteren Weg: 
die DE!" TN-Funktion. 

Wenn man nämlich am Anfang eines Basic-Programms 
definiert: 

DEFFNJOY(X)=INT((LOG(255.5-(PEEK(56322-X)0R224)))/ 
L0G(2)+2) 

so läßt sich über »PRINT FN JOY(x)« der Joystick abfragen. 
»x« gibt dabei an, ob man die Position von Joystick-Port 1 
oder 2 wissen möchte. Es entsprechen: 1: Nullstellung, 2: 
oben, 3: unten, 4: links, 5: rechts und 6: Feuerknopf 

Über eine »ON FN JOY(x) GOTO ...«-Anweisung ließe 
sich dann äußerst schnell in die entsprechenden Unterpro¬ 
gramme verzweigen. (Henning Zipf/ef) 


24. Autostart mit Trick 


Wenn ein Basic-Programm ein zweites Basic-Programm 
nachlädt, wird das zweite Programm automatisch gestar¬ 
tet. Das läßt sich sehr leicht zu einem Autostart für ein belie¬ 
biges Basic-Programm ausnutzen. 

Sie benötigen dafür ein Vorprogramm, das nur aus zwei 
Zeilen besteht: 

10 INPUT "WELCHES PROGRAMM ";D$ 

20 LOAD D$,8 

Kennen Sie den Namen des Programms, das Sie laden 
und starten wollen, geben Sie ihn nach der Aufforderung 
ein. Es wird sofort geladen und automatisch gestartet. Sehr 
einfach wird es, wenn dieses Vorprogramm das erste auf 
der Diskette ist: Es kann mit »LOAD " * ",8 geladen werden. 

Dieser einfache Trick kann komfortabel ausgearbeitet 
werden, wenn beispielsweise das Directory zur besseren 
Übersicht zusätzlich eingelesen wird. Bei der Eingabe des 
Programmnamens dürfen Sie wie gewohnt den < * > als 
Platzhalter verwenden. (C.Burfeind/ef) 
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25. Geräusche von A bis Z 


Durch Veränderung der Filterfrequenz und durch verschiedene Filter lassen sich einfache Geräusche erzeugen. 
Zeile 10 S=54272:Rem Basisregister 
Zeile 20 FORL=0TO24:POKES+L,0:NEXT 



Zeile 30 

Zelle 40 

Zeile 50 

Zeile 60 

Zeile 70 

Zeile 80 

Zeile 90 

Zeile 100 

Geräusch: 

Frequenz 

Hall 

Grenz¬ 

frequenz 

Resonanz 

Pass 

Wellenform 

Schleife und 
POKE 

Warteschleife 
und GOTO 

Schuß 

POKE S+0,0: 
POKE S+1,18 

POKE 

S+5,1 * 16 + 

11 

POKE 

S+22,110 

POKE 

S+23,15* 16 
+ 3 

POKE 
S+24,5* 16 
+ 15 

POKE S + 4,0: 

POKE 

S+4,129 

FORJ = 1TO 
255: 

POKE S+OJ: 
NEXT 

FORA= 1TO 
1000: 

NEXT:GOTO80 

Explosion 

POKE S+0,0: 
POKE S+1,6 

POKE 

S+5,2* 16 + 
13 

POKE 

S+22,100 

POKE 

S+23,15*16 
+ 3 

POKE 

S+24,3* 16 
+ 15 

POKE S+4,0: 

POKE 

S+4,129 

FORJ=1TO 
100: 

POKE S+0.J: 
NEXT 

FORA=1TO 

4000: 

NEXTGOTO80 

Uhrenschlag 

POKE S+0,0: 
POKE S + 1,6 

POKE 

S+5,1*16 + 

10 

POKE 

S+22,110 

POKE 

S+23,15* 16 
+3 

POKE 

S+24,1 * 16 + 
15 

POKE S + 4,0: 
POKE 

S+4,17 

FORJ=1TO 

255: 

POKE S+0,7: 
NEXT 

FORA=1TO 

500: 

NEXTGOTO80 

Brandung 

POKE S+0,0: 
POKE 

S+1,40 

POKE 

S+5,10* 16 + 
12 

POKE 

S+22,0 

POKE 

S+23,0 

POKE 
S+24,0* 16 
+ 15 

POKE S+4,0: 

POKE 

S+4,129 

FORJ=1TO 

255: 

POKE S+0.J: 
NEXT 

FORA=1TO 

3500: 

NEXT:GOTO80 


Um einen Schuß zu erzeugen, muß das Programm zum 
Beispiel so aussehen: 

10 S=54272 

20 F0RL=0T024:POKE S + L,0: NEXT 


30 POKE 
40 POKE 
50 POKE 
60 POKE 
70 POKE 
80 POKE 
90 FORJ 
100 FORA 


S + 0,0 : POKE S + 1,18 
S + 5,1 * 16 + 11 
S + 22, 110 
S + 23, 15 * 16 +3 
S + 24, 5 * 16 + 15 
S + 4, 0 : POKE S + 


64€R OnLI 


3 ' 

5la . 


4, 129 
+ 0,J : NEXT 
GOTO 80 


1 TO 255 : POKE S 
1 T 1000 : NEXT : 

Experimentieren Sie ein wenig mit den verschiedenen 
Werten, um neue und interessante Soundeffekte zu erzeu¬ 
gen. Als Unterprogramm lassen Sie sich leicht in eigene 
Programme einbinden. 

(Jürgen Hüsgen/ef) 


26. Professionelles Auswahlmenü 


Wenn man ein Programm schreibt, in dem der Benutzer 
aus mehreren Programmfunktionen auswählen kann, 
kommt man um die Erstellung eines Menüs nicht hinweg. 
Dieses Menü kann zum Beispiel so aussehen: Die ver¬ 
schiedenen Wahlmöglichkeiten bekommen eine Nummer, 
und der Benutzer gibt beim Programmablauf die ge¬ 
wünschte Nummer ein. Das Programm verzweigt dann ent¬ 
sprechend der Eingabe. 

Eine optisch schon wesentlich ansprechendere Metho¬ 
de sehen Sie in Listing 8. Tippen Sie dieses Listing bitte ein 
und beachten dabei unsere Eingabehinweise auf Seite 159. 

Das Programm ist nur ein Beispiel, um das Funktions¬ 
prinzip zu erklären. Es enthält sechs Menüpunkte, deren 
Texte in der Zeile 90 abgelegt sind. Mittels der Cursor-Ta¬ 
sten kann man sich einen Menüpunkt aussuchen und 
durch Druck auf die < RETURN > -Taste aktivieren. In Zeile 
80 könnte zum Beispiel eine »ON A GOTO 200,300,...«-Ver¬ 
zweigung erfolgen. (Ulrich Wichelhaus/ef) 


10 A=1 <183> 

15 PRINT"CCLR,4DDWN>" <002> 

20 FOR 1=1 TO 6 <249> 

30 READ MS CI) <211> 

^RINT TAB(10)MS(I) <150> 

.4EXT <060> 

60 GOSUB 100 <004> 

70 PRINT"CCLRTSIE WAEHLTEN PUNKT"A <176> 

80 END:REM HIER KOENNTE DANN VERZWEIGUNG E 

RFOLGEN <007> 

90 DATA PUNKT 1,PUNKT 2,PUNKT 3,PUNKT 4,PU 

NKT 5,PUNKT 6 <109> 

100 REM *»***■»****»»**■»***•*»*•******#• <238> 

105 REM HIER BEGINNT DIE AUSWAHLROUTINE <135> 

110 POKE 214,A+4:POKE 211,10:SYS 58640:PRI 

NT"<RVSON >"MS(A) <163> 

120 GET XS:IF XS=""THEN 120 <189> 

130 IF XS=CHRS(13)THEN RETURN <111> 

140 IF XS="<DOWN>“THEN 180 <029> 

150 POKE 214,A+4:PDKE 211,10:SYS 5B640:PRI 

NT MS(A) <055> 

160 A=A—1:IF A<1 THEN A=1 <118> 

170 GOTO 110 <114> 

180 POKE 214,A+4:POKE 211,10:SYS 5B640:PRI 

NT MS(A) <085> 

190 A=A+1:IF A>6 THEN A=6 <023> 

200 GOTO 110 <144> 

Listing 8. Ein professionelles Auswahlmenü 


27. »Der Gänsefüßchenmodus« 


Angenommen, Sie schreiben gerade an einem Basic-Pro- 
gramm. Mittels einer PRINT-Anweisung möchten Sie einen 
Text ausdrucken. Beispiel: PRINT "DIS IST EIN TEXT... 

Hoppla, »dies« schreibt man natürlich mit »ie«. Also mit 
dem Cursor wieder nach links und den Fehler ausbesserri. 
Aber halt! Da erscheinen plötzlich so komisch reverse Zei¬ 
chen, wenn man eine der Cursor-Tasten drückt! Ist mein 
C 64 defekt? Keine Sorge, der C 64 ist völlig in Ordnung. Die 
Erklärung lautet »Gänsefüßchenmodus«. Angenommen,, 
Sie möchten, daß der Computer an einer bestimmten Stelle 
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im Programm den Bildschirm löscht. Tippen Sie einmal fol¬ 
gendes ein: 

10 PRINT" 

und drücken dann die Taste für »Bildschirm löschen«. Was 
passiert? Der Bildschirm wird nicht sofort gelöscht, son¬ 
dern nach dem Anführungszeichen erscheint ein »reverses 
Herz«. Dies ist der »Steuercode« für »Bildschirm löschen«. 
Wenn Sie jetzt »RUN« eintippen (vorher die RETURN-Taste 
drücken), wird der Bildschirm tatsächlich gelöscht. Wir hal¬ 
ten fest: Sobald Sie in einer Zeile das erste Mal das Anfüh¬ 
rungszeichen eingeben, werden alle darauffolgenden Cur¬ 
sorbewegungen und Direktbefehle nicht mehr ausgeführt, 
sondern in einen »computerlesbaren« Code übersetzt. So 
lassen sich gezielt bestimmte Cursorpositionen ansteuern. 

Übrigens: Alle unsere Basic-Listingssind von diesen, auf 
Papier nur schwer zu unterscheidenden Steuerzeichen be¬ 
freit. Wenn Sie in der 64’er zum Beispiel folgendes sehen, 
dann dürfen Sie die Anweisungen in den geschweiften 
Klammern nicht ausführen, sondern müssen die entspre¬ 
chende Taste drücken. 

Beispiel: 10 PRINT " (CLR,3D0WN)TEST" 

Also zuerst die »Bildschirm Iöschen«-Taste (CLR) und 
dann dreimal die »Cursor nach unten«-Taste (DOWN) 
drücken. Möchten Sie den Gänsefüßchen-Modus aus¬ 
schalten, kann dies auf zwei Arten geschehen. Erstens: Wir 
drücken die SHIFT und die RETURN-Taste. 

Oder zweitens: Wir drücken erneut das Anführungszei¬ 
chen. Beide Methoden schalten den Gänsefüßchenmodus 
aus und erlauben wieder normale Cursorbewegungen. Ex¬ 
perimentieren Sie ruhig einmal mit diesem Modus. Sie wis¬ 
sen ja: Übung macht den Meister. (Thomas Röder/ef) 


28. C64 wird schneller 


Es ist allgemein bekannt, daß das C 64-Basic nicht gerade 
das schnellste ist. Durch einen kleinen Trick läßt es sich 
aber um zirka 6 Prozent beschleunigen. Durch »POKE 
53265, PEEK(53265) AND 239« wird der Bildschirm und da¬ 
mit auch der Video-Prozessor abgeschaltet. Dieser hat 
nämlich die unangenehme Eigenschaft, bei jedem Spei¬ 
cherzugriff (»welche Zeichen müssen nun auf dem Bild¬ 
schirm dargestellt werden?«) den Prozessor kurzerhand 
anzuhalten. Mit dem oben genannten POKE wird nun der 
Video-Prozessor an dieser unliebsamen Angewohnheit ge¬ 
hindert. Ab jetzt werden PRINT-Anweisungen zwar ausge¬ 
führt, sind aber auf dem Monitor oder Fernseher nicht mehr 
sichtbar. Erst durch »POKE 53265, PEEK(53265) OR16« ist 
der Bildschirminhalt wieder sichtbar. Sinnvoll ist dieses 
Verfahren zum Beispiel bei komplizierten mathematischen 
Berechnungen. Achtung: Wenn das Programm mit einer 
Fehlermeldung aussteigt, ist diese natürlich auch nicht 
mehr sichtbar. Man sollte also während der Aus-Phase zum 
Beispiel alle fünf Sekunden einen Signalton geben oder die 
Bildschirmfarbe (»POKE 53280,Farbe«) ändern. So hat 
man immer die Gewähr, daß das Programm noch läuft. 

(Michael Rauh/ef) 


29. Der Mini-Aufostart 


Wer zu faul ist, jedesmal »RUN« einzutippen, wenn ein Pro¬ 
gramm von der Floppy geladen wurde, kann jetzt aufatmen: 
Ein kleiner Trick macht dies automatisch. 

Wie Sie vielleicht wissen, bewirkt ein SHIFT-RUN/STOP- 
Tastendruck ein Laden des nächsten Programms von Data- 


sette mit automatischem RUN danach. Diesen Umstand 
können sich die Floppy-Besitzer zunutze machen. 

Wenn Sie ein Programm laden möchten, tippen Sie ganz 
normal »LOAD" Programmname",8« ein und setzen dahin¬ 
ter noch einen Doppelpunkt. Drücken Sie nun <SHIFT- 
RUN/STOP>. Auf dem Bildschirm erscheint hinter dem 
Doppelpunkt noch ein LOAD-Befehl (dieser wird vom C 64 
jedoch ignoriert). Wenn das Programm fertig geladen ist, 
führt der Computer ein RUN aus. (Bernd Roggendorf/ef) 


30. Was tun bei »out off memory«? 


Hatten Sie auch schon mal während der Arbeit mit dem 
C 64 plötzlich aus heiterem Himmel einen »out of memory 
error«? Abgesehen davon, daß Sie wirklich ein äußerst lan¬ 
ges Programm im Speicher haben könnten, taucht diese 
Meldung auch nach dem Laden von vielen Maschinenpro¬ 
grammen auf (diese erkennen Sie daran, daß sie nicht mit 
RUN, sondern mit einem SYS-Befehl gestartet werden). 
Die Fehlermeldung kommt meistens dann, wenn Sie nach 
dem Laden entweder ein Basic-Programm mit RUN star¬ 
ten, oder aber ein weiteres Programm laden möchten. 

Warum taucht dieser Fehler auf? Wenn Sie zum Beispiel 
eine Variable mit einem Wert belegen (A=10), dann legt der 
C 64 diese Zahl 10 direkt hinter dem aktuellen (Basic-)Pro- 
gramm im Speicher ab. Dazu muß er aber wissen, wo das 
Programm aufhört. Zu diesem Zweck gibt es einen soge¬ 
nannten »Zeiger«, der die letzte vom Programm belegte 
Adresse angibt. Der Zeiger wird aktualisiert, wenn Sie das 
Programm in seiner Länge verändern, also zum Beispiel ei¬ 
ne Zeile hinzuschreiben oder löschen. Der Zeiger wird aber 
auch gematzt, wenn Sie ein Programm von Diskette oder 
Kassette laden. 

Maschinenprogramme werden vom Programmierer mei¬ 
stens in Speicherbereiche gelegt, die von Basic-Program- 
men aus normalerweise nicht überschrieben werden. Die¬ 
se Bereiche haben sehr hohe Adressen, auf die der eben 
beschriebene Programmende-Zeiger nach dem Laden ge¬ 
setzt wird. Wenn Sie jetzt einen Befehl eingeben, der eine 
Variable definiert, erkennt der C64, daß hinter dem Pro¬ 
grammende-Zeiger bereits ein Speicherbereich liegt, der 
von einem Basic-Programm nicht benutzt werden darf. 

Ein Beispiel: Basic-Programme haben im allgemeinen 
den Speicherbereich von Adresse 2049 bis-Adresse 40959 
zur Verfügung. Maschinenprogramme verwenden jedoch 
häufig den etwas höher liegenden Bereich zwischen Adres¬ 
se 49152 und Adresse 53247. Wenn ein Programm in die¬ 
sen hohen Bereich geladen, also der Zeiger zum Beispiel 
auf Adresse 51234 gesetzt wird, kommt es beim späteren 
Belegen einer Variablen zum »out of memory error«. 

Auch beim Laden von Programmen wird übrigens eine 
Variable belegt: Der C 64 merkt sich den Namen des zu la¬ 
denden Programms am Ende des Basic-Speichers. Vorher 
wird jedoch anhand des Programmende-Zeigers überprüft, 
ob dafür überhaupt noch Platz ist. In unserem Beispiel mit 
der Adresse 51234 ist dies nicht der Fall. Also kommt es 
auch beim Nachladen von Programmen zum »out of memo¬ 
ry error«. 

Doch was tun? Geben Sie einfach NEW ein. Keine Angst: 
Dadurch wird das Maschinenprogramm nicht gelöscht. Le¬ 
diglich der Programmende-Zeiger wird auf Adresse 2051 
gesetzt, also festgelegt, daß sich kein Basic-Programm 
mehr im Speicher befindet. (Thomas Röder/ef) 
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EINGABEHILFEN 


Cheiksummer 
V3 und MSE 


Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen, 
Tippfehler vor allem bei Maschinenprogram¬ 
men zu vermeiden und sparen eine Menge Zeit. 


N 


I obody is perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
I Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen sein. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer V3« und »MSE« (MaschinenSpracheEditor) entwickelt. 
Der Checksummer ist für Basic-Programme und der MSE 
für Maschinensprache-Listings zuständig. 

Der Checksummer 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie äußerst sorgfäl¬ 
tig vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 
20 bis 30. Wenn Sie trotzdem noch einen Tippfehler 
gemacht haben, meldet sich das Programm später mit 
einem entsprechenden Hinweis. Wenn Sie fertig sind, spei¬ 
chern Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und das Drücken der RETURN-Taste. 

2. Wenn die Meldung »Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3. Zum Löschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht gelöscht. 

4. Nun können wir den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN-Taste: 
1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme über die eben eingegebene Basic-Zeile. Sie 
muß <63> lauten. Dem Checksummer ist es übrigens 
egal, ob Sie »1 REM« oder »1 REM« eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer eingeschaltet haben) immer dann, wenn 
Sie eine Basic-Zeile eintippen und dann die RETURN-Taste 
drücken. In der 64’er finden Sie die Prüfsumme immer am 
Ende jeder Programmzeile. 


10 PRINT"CHECKSUMMER FUER C 64" 

11 PRINT:PRINT"EINEN MOMENT, BITTE 

12 FOR 1=828 TO 864:READ A.’POKE I,A:PS=PS+ 

A:NEXT I 

13 IF PS0 5765 THEN PRINT "TIPPFEHLER IN DE 
N ZEILEN 20 BIS 22":END 

14 SYS 828:PS=0.-FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A:NEXT I 

15 IF PS018147 THEN PRINT"TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30":END 

16 POKE 1,53:POKE 42289.96:POKE 42290,228 

17 PRINT"CHECKSUMMER AKTIVIERT." 

18 PRINT:PRINT” AUSSCHALTEN : POKE1.55 ODE 
R"SPC(27)”<RUN/STOP+RESTORE>" 

19 PRINT:PRINT" ANSCHALTEN : POKE1.53" 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55.160,0,177,254 

21 DATA 145,254,136,208,249,230,255.165,25 
5,221,95,3,208,238,202 

22 DATA 16,230,96,160,224,192,0,160,2,169, 
0.170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24.42.105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
.254,76,111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32.210,255,208,12,0,92,72, 

32,201,255,170.104 ’ 

28 DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189.169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 
© 64’er 

Listing 1. Der »Checksummer 64 V3« für Basic-Listings 


5 PRINT CHRSC14) 
10 PRINT”<CLR>” 
22 "RINT“t 


<242> 

<254> 

<130> 


,^RINT” C4D0WN , 2SPACE5IEST LSPACE , BLUE, 6SP 
ACE>" <B22> 

40 PRINT'"^SSlsss?SSSS^raSS5BSSSSSSSSS ,, <10B> 

© G4'er 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungszeichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungszeichen die CBM- 
Taste und den Buchstaben < Q >, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Taste und den Buchstaben < W >. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann < SHIFT T> und normal EST, zum 
Schluß noch einmal die Leertaste, die Farbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 


CTRL steht für Control-Taste, so bedeutet [CTRL+A|, daß Sie die Control-Taste und die Taste »A- drücken müssen 

Im folgenden steht: 

[DOWN] 

Taste neben rechtem Shift, 

[SPACE) 

Leertaste 

[RVSON! 

Control-Taste 8 9 


Cursor unten 

[SHIFT-Spacel 

Shift-Taste 8 Leertaste 

[RVOFFj 

Control-Taste 8 0 

(UP| 

Shift-Taste 8 Taste neben 

|F1| bis [F8| 

Funktionstasten 

IORANGEI 

Commodore-Taste 8 1 


rechtem Shift; Cursor hoch 

[RETURNI 

Return-Taste 

IBROWN] 

Commodore-Taste 8 2 

[CLR) 

Shift-Taste & 2. Taste 

[BLACK! 

Control-Taste & 1 

ILIG.RED] 

Commodore-Taste 8 3 


ganz rechts oben 

[WHITE! 

Control-Taste 8 2 

IGREY1] 

Commodore-Taste 8 4 

[INST] 

Shift-Taste & Taste 

[RED] 

Control-Taste 8 3 

[GREY 21 

Commodore-Taste 8 5 


ganz rechts oben 

[CYAN! 

Control-Taste & 4 

[LIG.GREENI 

Commodore-Taste 8 6 

|HOME| 

2. Taste von ganz rechts oben 

[PURPLE! 

Control-Taste 8 5 

[LIG.BLUE] 

Commodore-Taste 8 7 

!DEL| 

Taste ganz rechts oben 

[GREEN) 

Control-Taste & 6 

[GREY 3) 

Commodore-Taste 8 8 

[RIGHTj 

Taste ganz rechts unten 

[BLUEj 

Control-Taste 8 7 

Tabelle 1. 


ILEFTI 

Shift-Taste & Taste unten rechts 

[YELLOWj 

Control-Taste 8 8 

Die Steuerbefehle in den Listings 
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Diese Zahlen dürfen Sie NICHT mit abtippen. 

Als Beispiel sehen Sie Bild 1. Am rechten Rand jeder 
Spalte sehen Sie die Prüfsummen in eckigen Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 240 von Listing 2 genauer an. Nach dem ersten 
Anführungszeichen nach dem PRINT-Befehl sehen Sie eine 
geschweifte Klammer (]. Immer, wenn Sie in einem unserer 
Listings diese Klammern sehen, dürfen Sie das, was inner¬ 
halb der Klammern steht, nicht eintippen. Sie müssen die 
entsprechende Taste drücken. Beispiel: 

10 PRINT "jCLRl" 


bedeutet: Nach dem Anführungszeichen die »Bildschirm- 
Iöschen«-Taste drücken (<SHIFT CLR/HOME>). In Ta¬ 
belle 1 sehen Sie eine Zusammenfassung aller möglichen 
Steuertasten mit dem entsprechenden Klartext. 

Weiterhin sehen Sie in Bild 1 (Bedeutung der Steuerzei¬ 
chen) in Zeile 30 ein unterstrichenes »T« nach der Klammer. 
Das bedeutet, daß Sie ein »T« zusammen mit der SHIFT- 
Taste drücken müssen, also < SHIFTT>. Wenn ein Zeichen 
»überstrichen« ist, müssen Sie dieses zusammen mit der 
CBM-Taste eingeben. Die CBM-Taste befindet sich ganz 
links unten auf der Tastatur und hat die Aufschrift »C=«. 


100 REM DIESES PROGRAMM ERZEUGT DEN <210> 

110 REM MSE VI.1 AUF DISKETTE. <039> 

120 REM BESITZER EINER DATASETTE <178> 

130 REM MUESSEN DIE ’8’ AM ENDE VON <145> 

140 REM ZEILE 343 IN EINE ’l’ AENDERN! <176> 

150 REM <212> 

230 IF PEEK(44)032 THEN PRINT"-CCLRDSIE HA 
BEN VERGESSEN. DIE POKES EINZUGE- BEN! 

"'END <050> 

240 PRINT"CCLRJ"i'DIM H<75)'FOR 1 = 0 TO 9 <042> 

250 H(48+1)=1=H(65+1)=1+10:NEXT'Z=1000 <136> 

260 FOR 1=2048 TO 3755 STEP 20:PRINT -- CHOME 

DICH LESE ZEILE'"Z <253> 

261 FOR N=0 TO 19'READ AS'IF LEN(Ä$R>2 TH 

EN '900 <062> 

262 IF PEEKf 63 > +PEEK(64)*256<>Z THEN 800 <011> 

270 H=ASC<LEFT$< A$,1)):L=ASC(RIGHTS(A$,1>) <199> 

280 D=H<H)*16+H<L>'S=S+D=POKB I+N'.D <165> 

290 NEXT'READ V'IF SOV THEN 900 <139> 

300 S=0 : Z=Z+1 ; NEXT' R=PEEK(21 lil)' H~PEEK.( 210 

<126> 

301 POKE 53280,R:POKE 53281,H'POKE 646,R'P 
RINT -- CCLR>DIE DATA-ZEILEN SIND FEHLERF 

REI!" <080> 

302 PRINT"SIE KOENNEN NUN DIE FARBEN DES M 

SE -- <209> 

303 PRINT -- EINSTELLEN. "'PRINT"C2D0WN ,SPACE, 

RVSONDDRUECKEN SIE <1>, <2> ODER <9> <205> 

304 PRINT”CDOWN,2SPACEX1> - RAHMEN-/SCHRI 

FTFARBE <013> 

305 PRINT -- C2SPACED<2> - HINTERGRUNDFARBE <233> 

306 PRINT■CDOWN.2SPACED<9> - FARBEN UEBERN 

EHMEN <158> 

307 PRINT “C2D0WNDFARBE <1> : "R-. PRINT "FARBE . 

<2>:"H <066> 

308 GET A'IF A=0 THEN 308 <210> 

309 IF A=1 THEN R=(R+1)AND 15 <098> 

310 IF A=2 THEN H=(H+1)AND 15 <086> 

311 IF A=9 THEN 340 <217> 

312 GOTO 301 <034> 

340 POKE 2106,H'POKE 2111,R <153> 

342 POKE 631,19'POKE 632,13'POKE 198,2 <135> 

343 PRINT -- CCLRDSAVE”CHR$( 34) "MSE VI . 1 "CHRS 

<34)”,8 <091> 

344 POKE 43,1'POKE 44,8'POKE 45,172'POKE 4 

6,14'END <140> 

800 PRINT"CCLR.RVSONDSIE HABEN ZEILE -- Z -- CLE 

FT,SPACEDVERGESSEN'“'A=PEEK(646)AND 15 <124> 
810 POKE 646,PEEK( 53281 )AND 15'PRINT"LIST" 

Z-2“-"Z+2'POKE 646,A <224> 

820 GOTO 920 <082> 

900 PRINT"CCLR.RVSONDSIE HABEN EINEN TIPPF 

EHLER GEMACHT'“=A=PEEK(646)AND 15 <154> 

910 POKE 646,PEEKC53281)AND 15'PRINT"LIST“ 

Z'POKE 646,A <173> 

920 POKE 631,19'POKE 632,17'POKE 633,13'PO 

KE 198,3'END <126> 

1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00 

,00.00,A2,08,A9,36,85.A4,A9, 1247 <119> 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,85,A7 

.A0,00,Bl,A4,91,A6,C8,D0,F9, 2888 <054> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 

.4C,00,B0,20,D1,B1,A9.00,8D, 2781 <096> 

1003 DATA 21,D0,A9,0F,8D,20,D0.8D.86,02.A0 

,B3,A9,74,20,FF,Bl,A0.B3,A9, 2679 <089> 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 

,02,C8,C9,0D,D0,F5,88,F0.D2, 2912 <217> 

1005 DATA C0.11,90,02,A0,10,8C,00,02,20,EA 

,Bl,A0,B3,A9,CF,20,FF,Bl,20, 2327 <045> 

1006 DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB 

,85,61,20,A7,B4,D0,20,A0,B3, 2864 <199> 

1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20 


,8E.B4,85,5F,20,A7,B4,D0,0A, 2624 <091> 

1008 DATA A5.61,C5,5F,A5,62.E5.60,90,06,20 

,43,B3,4C,3A,B0,A9.AA,A0,00, 2379 <167> 

1009 DATA EA,EA.E6,FB,D0,02,E6,FC,20.3F,B2 

,90,EF,4C,FB,B4,A2,02,86,58, 3190 <041> 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9.30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

.0F,4C,0B,Bl,20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C.8B,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9,0E.D0,06,20,5F,B4,4C,64,Bl,4C 

,92,B0,A5,F9,20,02,B1,0A,0A. 2132 <208> 

1015 DATA 0A,0A,85,F9,A5.F8,20,02,Bl,05,F9 

,60,C9,3A,90,02,69,08,29.0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,IF,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <188> 

1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA 

,84,57,68,68,4C,8B,Bl,A6,D3, 2891 <197> 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6 

, 58, E0,02,90,09 ,C6,59,20, D2 , 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A 

,4A,4A,20,59,Bl,68,29.0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

t F r •9A,20,Dl,Bl,20.48,B2,20, 2261 <073> 

1021 DATA EA,Bl,20,9F,B2,A5.FC,20,4E,Bl,A5 

,FB,20,4E,B1,20,ED,Bl,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2.B1,A9,00,85,59.20,8E 

,B0,20,ED.Bl,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,C8,84,59,C0,08,90.EC.20,10 

.B2,A9,12,20,D2,FF,20.8E.B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,Bl, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB. 2476 <237> 

1027 DATA E8,D0,EF,60,A9,0D,2C,A9,20,4C,D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D.85,5C,A0,00 

,B1,5C.F0,06,20,D2,FF,C8.D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85.5A,A0,00,84,5B,Bl 

.FB,18,65,5A,85,5A,90.02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 

,5A.65,5B,85.FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08.85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2,FF.CC,00,02,C8,90,F4,A9, 2692 <098> 

1033 DATA 14,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E.B1,A5.61,20,4E, 2457 <060> 

1034 DATA Bl,20,ED,Bl,A5,60,20,4E,B1,A5,5F 

,20,4E.Bl,EA,EA,EA,EA,EA,EA, 3122 <190> 

1035 DATA EA,EA,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,28,20,ED,Bl,CA,D0,FA, 2703 <087> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,78.85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,Bl 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <208> 

1038 DATA 18,A5,A4,69,28,85,A4,90,02.E6,A5 

,18,A5,A6,69,28,85.A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A8,91,4C,D2,FF,A9 

.0F,8D,18.D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06.D4,A9,11,BD,04,D4,A9 

,32,8D,01,D4,A9,00,8D,00,D4. 2413 <126> 

1041 DATA A0,80.20,09,B3,A9,10.8D,04,D4,60 

,A2,FF,CA,D0,FD,88,D0,F8,60, 2914 <240> 

1042 DATA A9,0F,8D,18.D4,A9,2D,8D,05,D4,A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0 
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.FF.20.09.B3.A9.20.BD,04 > D4. 2250 <078> 

1044 DATA A9,00,8D,01,D4,8D,00,D4,60,30,20 

.F0,FF.8A,48,98,48,18,A0,06 , 2179 <175> 

1045 DATA A2i18.20.F0.FF.A0.B4.A9i0A.20.FF 

,Bl.20.12.B3.20.E4.FF,F0.FB. 2931 <093> 

1046 DATA A2,1D,A9,14,20,D2,FF,CA.D0.FA,68 

.A8.68,AA.18.4C p F0,FFi0D.0Di 2704 <088> 

1047 DATA 0D,20,20,20.20,20.20.20,4D,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,00,20,20,20,20, 1023 <038> 

1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D 

,41.4E,4E,20,26.20,44,2E,57, 1126 <206> 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F.47.52,41,4D, 1102 <117> 

1051 DATA 4D.4E.41,4D,45,20,3A,20,00,0D.0D 

,20,20,20,53,54.41,52,54,41, 1073 <095> 

1052 DATA 44.52,45,53,53,45.20.3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53.45,20.20,20,3A,20 

,24,00.92,01,01,50,52,4F.47, 1136 <228> 

1054 DATA 52.41,4D,4D,20.3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,40,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2A.2A,20,20,92,00,0D,0D, 1058 <098> 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A 

,2A,00.13,01,20,20,12,44,92, 916 <153> 

1057 DATA 49,53,4B,20,4F.44,45.52,20,12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F,4F,20,2D,20,46,45,48,4C,45 

,52,00,20,D1,Bl,20,48,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,Bl,20,8E,B4,85,FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0.14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,0C,85■F9.20,A7■B4,F0 

,05,85,F8,4C,EF,B0,68,68,20, 2749 <088> 

1062 DATA 43,B3.4C,5F,B4,20,CF,FF.C9,4C,D0 

,09,20,Dl,B1,20,48,B2,4C,0B. 2372 <046> 

1063 DATA B6,C9,0D.60,A9,00,85,5E,20,5F,B4 

,20,EA,Bl.20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,El.FF,F0,26 

,20.9F,B2,24,5E,10,09,20,4E, 2435 >1r98> C 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F.B2,90,D7,A0,B4,A9.28,20. 2190 <207> 

1066 DATA FF,Bl,20,E4,FF,C9,0D,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20,E0,B2,4C,64,B1,A5.FC,20,4E 

,Bl,A5,FB,85,FF,20,4E,Bl,A9, 3003 <221> 

1068 DATA 20,A0.3A,20,F2,B1,A0,00,20,ED,B1 

,Bl,FB.20,4E,Bl,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20,ED,B1,24,5E,30,03,A9,12,2C 

,A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,Bl,A9,92,20,D2,FF,4C.EA 

,Bl,A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4,A9,80,85,5E,20,4E,B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20,EA,B1,20,EA,B1.20,60,B5,4C 

,C1,B4,20,B8,B5,A6.5F,A4,60, 2812 <015> 

1074 DATA A9.61,20,D8,FF.B0,0A,20,B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF,20,68,B6,A0,B4,A9,4F,20,FF 

,Bl,20,F9,Bl,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6.A9.37,A0,B4,20,FF,B1,20,F9.B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54,D0.Fl,A9,01,A8,20,BA,FF,A0,00 

,E0,01.F0.1A.A9,40,80.20,02, 2403 <101> 

1078 DATA A9,3A,8D,21,02,B9,01,02,99,22.02 

,C8, CC, 00,02,90, F4,C8, C8, D0, 2182 <127> 

1079 DATA 0C,B9,01,02.99,20,02,C8,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8.B5,A5,BA,C9,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85,B9,20,C0,FF.B0,28,A5,BA,20 

,B4,FF,A5,B9.20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5 

,FF,85,62,20,AB,FF.A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F.84,60,A5,BA,C9.01,D0, 2639 <131> 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20.ED,Bl,CA,D0,FA,60,00,00,00 

,00,00,00,00,00,00,00,00,00, 1230 <143> 

© 64'er Listing 2. Der MSE-Lader 


Der MSE 


Der MSE dient zur Eingabe von Maschinensprache-Pro¬ 
grammen. Als erstes müssen Sie den sogenannten 
»MSE-Lader« (Listing 2) abtippen. Dieser erzeugt erst das 
eigentliche MSE-Programm auf Diskette oder Kassette. 
Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeilennummer): POKE 44,32: POKE 8192,0: NEW 

Jetzt können Sie beginnen, das Listing 2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA- 
TA-Zeilen einen Fehler gemacht haben, aber wenn Sie 
ganz sicher gehen möchten, sollten Sie den Checksummer 
vor dem Eintippen aktivieren. Die Prüfsummen für den 
MSE-Lader finden Sie am Ende der jeweiligen Pro¬ 
grammzeilen. 

Wenn Sie das Listing 2 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingeben! 

Wenn Sie alles richtig gemacht haben und das Pro¬ 
gramm fehlerfrei abgetippt wurde, speichert es sich nach 
dem Starten selbst auf Diskette oder Kassette unter dem 
Namen »MSE VI .0«. Dieses fertige MSE-Programm laden 
Sie dann bei Bedarf wie ein normales Basic-Programm und 
starten es mit »RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz¬ 
ten beiden vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette 
laden v ollen, um an einer bestimmten Stelle weiterzutip¬ 
pen oder noch eine Korrektur vorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach müs¬ 
sen Sie <D> oder <T> drückende nachdem, ob Sie von 
Diskette oder Kassette (»tape«) laden möchten. Wenn das 
Programm unter diesem Namen nicht auf der Diskette vor¬ 
handen ist oder ein sonstiger Ladefehler vorlag, meldet 
sich der MSE mit»l/0-ERR0R«. In diesem Fall drücken Sie 

< RUN/STOP RESTORE > und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listings ohne 
die Freiräume dazwischen ein. Wenn Sie in einer Zeile 
einen Tippfehler gemacht haben, meldet sich der MSE 
sofort mit einem Brummton und der Meldung »EINGABE¬ 
FEHLER«. Nach einem Druck auf die RETURN-Taste kön¬ 
nen Sie mit der DEL-Taste den Fehler korrigieren. Wenn Sie 
das gewünschte Programm vollständig eingegeben 
haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, daß Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk später fort¬ 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 

< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 

<CTRL M> erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch < SPACE> können Sie weiterlisten lassen 
und durch <RUN/STOP> das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit <CTRLP> ausdrucken. Mit <CTRLL> 
wird das Programm noch einmal neu in Ihren C 64 geladen. 

(F. Lonczewski/N. Mann/D. Weineck/sk) 
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Die Floppy ist das wich¬ 
tigste Perjpheriegerät 
für den C64. Sie kann 
weitaus mehr als nur 
Laden oder Speichern 
von Programmen. 

Das Sonderheft 41 in¬ 
formiert Sie umfas¬ 
send darüber, wie Sie 
Ihr Laufwerk optimal 
einsetzen können. 

Folgende Themen 
finden Sie im Sonderheft: 

W' »Floppy-Kurs« 

Lernen Sie die Geheimnisse der Floppy kennen. In diesem ausführlichem Kurs 
erfahren Sie alles über Funktionsweise, Aufbau und Programmierung der Floppy. 

■ »Dateiverwaltung mit der Floppy« 

Um große Datenmengen zu verwalten , ist es sehr vorteilhaft, mit »relativen 
Dateien« zu arbeiten. Dieser Kurs führt Sie Schritt für Schritt in dieses Thema ein. 

■ »Anwendungen, Tips und Tricks« 

...helfen, die Floppy effektiv einzusetzen. »Disc-Basic« stellt Ihnen 33 neue 
Befehle für den komfortablen Umgang mit der Floppy zur Verfügung. 

Das Sonderheft 41 ist ab dem 28. April erhältlich. 
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